home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1996-01-18 | 36.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 74 61 62 6c 00 01 03 f8 | 00 00 8f 3f 00 00 00 a0 |tabl....|...?....|
|00000010| 00 00 00 00 0c 01 00 00 | 00 08 00 00 00 10 0d 01 |........|........|
|00000020| 00 00 00 1f 00 00 01 21 | 0d 01 00 00 01 2d 00 00 |.......!|.....-..|
|00000030| 0a 9e 0d 01 00 00 0a af | 00 00 0f 58 0d 01 00 00 |........|...X....|
|00000040| 0f 6a 00 00 14 e7 0d 01 | 00 00 14 f4 00 00 26 23 |.j......|......&#|
|00000050| 0d 01 00 00 26 32 00 00 | 27 2d 0d 01 00 00 27 39 |....&2..|'-....'9|
|00000060| 00 00 28 14 0d 01 00 00 | 28 1f 00 00 2f 01 0d 01 |..(.....|(.../...|
|00000070| 00 00 2f 0d 00 00 2f d5 | 0d 01 00 00 2f da 00 00 |../.../.|..../...|
|00000080| 3f 40 0d 01 00 00 3f 4b | 00 00 42 5a 0d 01 00 00 |?@....?K|..BZ....|
|00000090| 42 63 00 00 48 75 0d 01 | 00 00 48 7f 00 00 82 76 |Bc..Hu..|..H....v|
|000000a0| 0d 01 00 00 82 81 00 00 | 8e 8c 0c 01 00 00 8e 94 |........|........|
|000000b0| 07 61 70 70 6e 61 6d 65 | 00 00 00 04 4d 4f 52 45 |.appname|....MORE|
|000000c0| 0e 63 61 6c 6c 49 6e 73 | 74 61 6c 6c 41 70 70 00 |.callIns|tallApp.|
|000000d0| 00 00 fe 00 01 04 bc 00 | 02 00 00 00 0c 00 00 00 |........|........|
|000000e0| 76 00 00 02 00 00 0f 06 | 47 65 6e 65 76 61 00 00 |v.......|Geneva..|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 09 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 06 45 00 | 00 a4 d0 77 90 a9 17 f5 |......E.|...w....|
|00000120| 13 00 00 00 2b 00 00 00 | a0 00 3b 01 04 01 b8 4c |....+...|..;....L|
|00000130| 41 4e 44 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |AND.....|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 6f |........|.......o|
|00000150| 6e 20 63 61 6c 6c 49 6e | 73 74 61 6c 6c 41 70 70 |n callIn|stallApp|
|00000160| 20 28 70 61 74 68 29 20 | c7 74 68 69 73 20 73 63 | (path) |.this sc|
|00000170| 72 69 70 74 20 69 73 20 | 73 61 76 65 64 20 69 6e |ript is |saved in|
|00000180| 20 61 6c 6c 20 63 6f 6d | 6d 65 72 63 69 61 6c 20 | all com|mercial |
|00000190| 69 6e 73 74 61 6c 6c 20 | 66 69 6c 65 73 0d 09 72 |install |files..r|
|000001a0| 65 74 75 72 6e 20 28 63 | 6f 6d 6d 65 72 63 69 61 |eturn (c|ommercia|
|000001b0| 6c 2e 69 6e 73 74 61 6c | 6c 41 70 70 20 28 70 61 |l.instal|lApp (pa|
|000001c0| 74 68 29 29 0d 80 00 00 | 00 00 00 80 00 00 00 00 |th))....|........|
|000001d0| 00 0b 63 6f 6d 70 69 6c | 65 44 6f 63 73 00 00 09 |..compil|eDocs...|
|000001e0| 6d 00 01 04 bc 00 02 00 | 00 01 98 00 00 07 59 00 |m.......|......Y.|
|000001f0| 00 02 00 00 0f 06 47 65 | 6e 65 76 61 00 00 00 00 |......Ge|neva....|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 09 00 00 00 00 00 01 00 |........|........|
|00000220| 00 00 00 06 45 00 00 a5 | ee 5f de a9 17 f5 13 00 |....E...|._......|
|00000230| 00 00 20 00 00 00 32 00 | 32 01 d6 01 c1 4c 41 4e |.. ...2.|2....LAN|
|00000240| 44 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |D.......|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 6f 6e 20 |........|.....on |
|00000260| 63 6f 6d 70 69 6c 65 44 | 6f 63 73 20 28 61 64 72 |compileD|ocs (adr|
|00000270| 4f 75 74 6c 69 6e 65 29 | 0d 09 20 76 65 72 73 69 |Outline)|.. versi|
|00000280| 6f 6e 20 31 2e 31 3b 20 | 38 2f 32 31 2f 39 32 2c |on 1.1; |8/21/92,|
|00000290| 20 64 6d 62 0d 09 09 75 | 73 65 20 27 c8 20 27 63 | dmb...u|se '. 'c|
|000002a0| 68 61 72 61 63 74 65 72 | 20 66 6f 72 20 65 78 61 |haracter| for exa|
|000002b0| 6d 70 6c 65 20 72 65 73 | 75 6c 74 73 2c 20 61 6e |mple res|ults, an|
|000002c0| 64 20 6f 6e 6c 79 20 69 | 6e 20 65 78 61 6d 70 6c |d only i|n exampl|
|000002d0| 65 73 20 73 65 63 74 69 | 6f 6e 0d 09 09 09 61 6c |es secti|on....al|
|000002e0| 73 6f 20 63 68 65 63 6b | 73 20 74 6f 20 73 65 65 |so check|s to see|
|000002f0| 20 69 66 20 74 68 65 20 | 63 68 61 72 61 63 74 65 | if the |characte|
|00000300| 72 20 69 73 20 61 6c 72 | 65 61 64 79 20 74 68 65 |r is alr|eady the|
|00000310| 72 65 0d 09 09 09 61 6e | 64 20 6d 61 6b 65 73 20 |re....an|d makes |
|00000320| 73 75 72 65 20 74 68 61 | 74 20 69 74 27 73 20 74 |sure tha|t it's t|
|00000330| 68 65 20 6f 6e 6c 79 20 | 68 65 61 64 69 6e 67 20 |he only |heading |
|00000340| 61 74 20 74 68 61 74 20 | 6c 65 76 65 6c 0d 09 09 |at that |level...|
|00000350| 77 72 69 74 65 20 65 61 | 63 68 20 76 65 72 62 20 |write ea|ch verb |
|00000360| 6f 75 74 20 74 6f 20 74 | 68 65 20 66 69 6c 65 20 |out to t|he file |
|00000370| 77 65 20 67 6f 2c 20 72 | 65 64 75 63 69 6e 67 20 |we go, r|educing |
|00000380| 6d 65 6d 6f 72 79 20 72 | 65 71 75 69 72 65 6d 65 |memory r|equireme|
|00000390| 6e 74 73 0d 09 6c 6f 63 | 61 6c 20 28 73 29 20 c7 |nts..loc|al (s) .|
|000003a0| 68 6f 6c 64 73 20 74 68 | 65 20 74 65 78 74 20 74 |holds th|e text t|
|000003b0| 6f 20 62 65 20 77 72 69 | 74 74 65 6e 20 74 6f 20 |o be wri|tten to |
|000003c0| 74 68 65 20 66 69 6c 65 | 0d 09 0d 09 64 65 73 74 |the file|....dest|
|000003d0| 66 69 6c 65 20 3d 20 22 | 44 6f 63 53 65 72 76 65 |file = "|DocServe|
|000003e0| 72 20 53 6f 75 72 63 65 | 20 54 65 78 74 22 0d 09 |r Source| Text"..|
|000003f0| 69 66 20 6e 6f 74 20 66 | 69 6c 65 2e 70 75 74 46 |if not f|ile.putF|
|00000400| 69 6c 65 44 69 61 6c 6f | 67 20 28 22 44 6f 63 53 |ileDialo|g ("DocS|
|00000410| 65 72 76 65 72 20 74 65 | 78 74 20 66 69 6c 65 20 |erver te|xt file |
|00000420| 74 6f 20 63 72 65 61 74 | 65 3a 22 2c 20 40 64 65 |to creat|e:", @de|
|00000430| 73 74 66 69 6c 65 29 0d | 09 09 72 65 74 75 72 6e |stfile).|..return|
|00000440| 0d 09 0d 09 62 75 6e 64 | 6c 65 20 c7 63 72 65 61 |....bund|le .crea|
|00000450| 74 65 20 74 68 65 20 66 | 69 6c 65 0d 09 09 66 69 |te the f|ile...fi|
|00000460| 6c 65 2e 6e 65 77 20 28 | 64 65 73 74 66 69 6c 65 |le.new (|destfile|
|00000470| 29 0d 09 09 66 69 6c 65 | 2e 73 65 74 54 79 70 65 |)...file|.setType|
|00000480| 20 28 64 65 73 74 66 69 | 6c 65 2c 20 27 54 45 58 | (destfi|le, 'TEX|
|00000490| 54 27 29 0d 09 09 66 69 | 6c 65 2e 73 65 74 43 72 |T')...fi|le.setCr|
|000004a0| 65 61 74 6f 72 20 28 64 | 65 73 74 66 69 6c 65 2c |eator (d|estfile,|
|000004b0| 20 27 44 4f 43 53 27 29 | 0d 09 0d 09 62 75 6e 64 | 'DOCS')|....bund|
|000004c0| 6c 65 20 c7 74 72 61 76 | 65 72 73 65 20 74 68 65 |le .trav|erse the|
|000004d0| 20 6f 75 74 6c 69 6e 65 | 2c 20 77 72 69 74 69 6e | outline|, writin|
|000004e0| 67 20 6f 6e 65 20 76 65 | 72 62 20 74 6f 20 74 68 |g one ve|rb to th|
|000004f0| 65 20 66 69 6c 65 20 61 | 74 20 61 20 74 69 6d 65 |e file a|t a time|
|00000500| 0d 09 09 74 61 72 67 65 | 74 2e 73 65 74 20 28 61 |...targe|t.set (a|
|00000510| 64 72 4f 75 74 6c 69 6e | 65 29 0d 09 09 6f 70 2e |drOutlin|e)...op.|
|00000520| 66 69 72 73 74 73 75 6d | 6d 69 74 20 28 29 0d 09 |firstsum|mit ()..|
|00000530| 09 6f 70 2e 66 75 6c 6c | 63 6f 6c 6c 61 70 73 65 |.op.full|collapse|
|00000540| 20 28 29 0d 09 09 6c 6f | 6f 70 0d 09 09 09 73 20 | ()...lo|op....s |
|00000550| 3d 20 63 72 20 2b 20 22 | 56 65 72 62 22 20 2b 20 |= cr + "|Verb" + |
|00000560| 74 61 62 20 2b 20 6f 70 | 2e 67 65 74 4c 69 6e 65 |tab + op|.getLine|
|00000570| 54 65 78 74 20 28 29 20 | 2b 20 63 72 0d 09 09 09 |Text () |+ cr....|
|00000580| 6f 70 2e 65 78 70 61 6e | 64 20 28 31 29 0d 09 09 |op.expan|d (1)...|
|00000590| 09 6f 70 2e 67 6f 20 28 | 72 69 67 68 74 2c 20 31 |.op.go (|right, 1|
|000005a0| 29 0d 09 09 09 6c 6f 6f | 70 0d 09 09 09 09 6c 6f |)....loo|p.....lo|
|000005b0| 63 61 6c 20 28 73 65 63 | 74 69 6f 6e 29 0d 09 09 |cal (sec|tion)...|
|000005c0| 09 09 73 65 63 74 69 6f | 6e 20 3d 20 6f 70 2e 67 |..sectio|n = op.g|
|000005d0| 65 74 4c 69 6e 65 54 65 | 78 74 20 28 29 0d 09 09 |etLineTe|xt ()...|
|000005e0| 09 09 73 20 3d 20 73 20 | 2b 20 73 65 63 74 69 6f |..s = s |+ sectio|
|000005f0| 6e 20 2b 20 74 61 62 0d | 09 09 09 09 6f 70 2e 65 |n + tab.|....op.e|
|00000600| 78 70 61 6e 64 20 28 31 | 29 0d 09 09 09 09 6f 70 |xpand (1|).....op|
|00000610| 2e 67 6f 20 28 72 69 67 | 68 74 2c 20 31 29 0d 09 |.go (rig|ht, 1)..|
|00000620| 09 09 09 6c 6f 6f 70 0d | 09 09 09 09 09 73 20 3d |...loop.|.....s =|
|00000630| 20 73 20 2b 20 6f 70 2e | 67 65 74 4c 69 6e 65 54 | s + op.|getLineT|
|00000640| 65 78 74 20 28 29 20 2b | 20 63 72 0d 09 09 09 09 |ext () +| cr.....|
|00000650| 09 63 74 53 75 62 73 20 | 3d 20 6f 70 2e 63 6f 75 |.ctSubs |= op.cou|
|00000660| 6e 74 73 75 62 73 20 28 | 31 29 0d 09 09 09 09 09 |ntsubs (|1)......|
|00000670| 69 66 20 63 74 53 75 62 | 73 20 3e 20 30 0d 09 09 |if ctSub|s > 0...|
|00000680| 09 09 09 09 6f 70 2e 65 | 78 70 61 6e 64 20 28 31 |....op.e|xpand (1|
|00000690| 29 0d 09 09 09 09 09 09 | 6f 70 2e 67 6f 20 28 72 |).......|op.go (r|
|000006a0| 69 67 68 74 2c 20 31 29 | 0d 09 09 09 09 09 09 69 |ight, 1)|.......i|
|000006b0| 66 20 28 63 74 53 75 62 | 73 20 3d 3d 20 31 29 20 |f (ctSub|s == 1) |
|000006c0| 61 6e 64 20 28 73 65 63 | 74 69 6f 6e 20 3d 3d 20 |and (sec|tion == |
|000006d0| 22 45 78 61 6d 70 6c 65 | 73 22 29 20 c7 61 6e 20 |"Example|s") .an |
|000006e0| 65 78 61 6d 70 6c 65 0d | 09 09 09 09 09 09 09 6c |example.|.......l|
|000006f0| 6f 63 61 6c 20 28 6c 69 | 6e 65 29 0d 09 09 09 09 |ocal (li|ne).....|
|00000700| 09 09 09 6c 69 6e 65 20 | 3d 20 6f 70 2e 67 65 74 |...line |= op.get|
|00000710| 4c 69 6e 65 54 65 78 74 | 20 28 29 0d 09 09 09 09 |LineText| ().....|
|00000720| 09 09 09 69 66 20 73 74 | 72 69 6e 67 2e 6e 74 68 |...if st|ring.nth|
|00000730| 43 68 61 72 20 28 6c 69 | 6e 65 2c 20 31 29 20 ad |Char (li|ne, 1) .|
|00000740| 20 27 c8 27 0d 09 09 09 | 09 09 09 09 09 6c 69 6e | '.'....|.....lin|
|00000750| 65 20 3d 20 22 c8 20 22 | 20 2b 20 6c 69 6e 65 0d |e = ". "| + line.|
|00000760| 09 09 09 09 09 09 09 73 | 20 3d 20 73 20 2b 20 74 |.......s| = s + t|
|00000770| 61 62 20 2b 20 6c 69 6e | 65 20 2b 20 63 72 0d 09 |ab + lin|e + cr..|
|00000780| 09 09 09 09 09 65 6c 73 | 65 0d 09 09 09 09 09 09 |.....els|e.......|
|00000790| 09 6c 6f 6f 70 0d 09 09 | 09 09 09 09 09 09 73 20 |.loop...|......s |
|000007a0| 3d 20 73 20 2b 20 74 61 | 62 20 2b 20 6f 70 2e 67 |= s + ta|b + op.g|
|000007b0| 65 74 4c 69 6e 65 54 65 | 78 74 20 28 29 20 2b 20 |etLineTe|xt () + |
|000007c0| 63 72 0d 09 09 09 09 09 | 09 09 09 69 66 20 6e 6f |cr......|...if no|
|000007d0| 74 20 6f 70 2e 67 6f 20 | 28 64 6f 77 6e 2c 20 31 |t op.go |(down, 1|
|000007e0| 29 0d 09 09 09 09 09 09 | 09 09 09 62 72 65 61 6b |).......|...break|
|000007f0| 0d 09 09 09 09 09 09 6f | 70 2e 67 6f 20 28 6c 65 |.......o|p.go (le|
|00000800| 66 74 2c 20 31 29 0d 09 | 09 09 09 09 09 6f 70 2e |ft, 1)..|.....op.|
|00000810| 63 6f 6c 6c 61 70 73 65 | 20 28 29 0d 09 09 09 09 |collapse| ().....|
|00000820| 09 69 66 20 6e 6f 74 20 | 6f 70 2e 67 6f 20 28 64 |.if not |op.go (d|
|00000830| 6f 77 6e 2c 20 31 29 0d | 09 09 09 09 09 09 62 72 |own, 1).|......br|
|00000840| 65 61 6b 0d 09 09 09 09 | 6f 70 2e 67 6f 20 28 6c |eak.....|op.go (l|
|00000850| 65 66 74 2c 20 31 29 0d | 09 09 09 09 6f 70 2e 63 |eft, 1).|....op.c|
|00000860| 6f 6c 6c 61 70 73 65 20 | 28 29 0d 09 09 09 09 69 |ollapse |().....i|
|00000870| 66 20 6e 6f 74 20 6f 70 | 2e 67 6f 20 28 64 6f 77 |f not op|.go (dow|
|00000880| 6e 2c 20 31 29 0d 09 09 | 09 09 09 62 72 65 61 6b |n, 1)...|...break|
|00000890| 0d 09 09 09 6f 70 2e 67 | 6f 20 28 6c 65 66 74 2c |....op.g|o (left,|
|000008a0| 20 31 29 0d 09 09 09 6f | 70 2e 63 6f 6c 6c 61 70 | 1)....o|p.collap|
|000008b0| 73 65 20 28 29 0d 09 09 | 09 6d 73 67 20 28 73 69 |se ()...|.msg (si|
|000008c0| 7a 65 6f 66 20 28 73 29 | 20 2b 20 22 20 63 68 61 |zeof (s)| + " cha|
|000008d0| 72 73 2e 22 29 0d 09 09 | 09 66 69 6c 65 2e 77 72 |rs.")...|.file.wr|
|000008e0| 69 74 65 20 28 64 65 73 | 74 66 69 6c 65 2c 20 73 |ite (des|tfile, s|
|000008f0| 29 0d 09 09 09 69 66 20 | 6e 6f 74 20 6f 70 2e 67 |)....if |not op.g|
|00000900| 6f 20 28 64 6f 77 6e 2c | 20 31 29 0d 09 09 09 09 |o (down,| 1).....|
|00000910| 62 72 65 61 6b 0d 09 09 | 6f 70 2e 66 69 72 73 74 |break...|op.first|
|00000920| 73 75 6d 6d 69 74 20 28 | 29 0d 09 09 74 61 72 67 |summit (|)...targ|
|00000930| 65 74 2e 63 6c 65 61 72 | 20 28 29 20 c7 64 6f 6e |et.clear| () .don|
|00000940| 65 20 77 69 74 68 20 74 | 68 65 20 6f 75 74 6c 69 |e with t|he outli|
|00000950| 6e 65 0d 09 0d 09 46 69 | 6e 64 65 72 2e 72 65 76 |ne....Fi|nder.rev|
|00000960| 65 61 6c 20 28 64 65 73 | 74 66 69 6c 65 29 20 c7 |eal (des|tfile) .|
|00000970| 73 68 6f 77 20 74 68 65 | 20 65 78 70 6f 72 74 65 |show the| exporte|
|00000980| 64 20 66 69 6c 65 0d 09 | 46 72 6f 6e 74 69 65 72 |d file..|Frontier|
|00000990| 2e 66 69 6e 64 65 72 54 | 6f 46 72 6f 6e 74 20 3d |.finderT|oFront =|
|000009a0| 20 66 61 6c 73 65 0d 09 | 72 65 74 75 72 6e 20 28 | false..|return (|
|000009b0| 74 72 75 65 29 0d 80 00 | 00 00 00 00 84 00 00 00 |true)...|........|
|000009c0| 00 00 80 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000009e0| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|000009f0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000a00| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000a10| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000a20| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000a30| 00 00 00 00 80 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000b30| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000b40| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 10 63 |........|.......c|
|00000b50| 72 65 61 74 65 44 6f 63 | 4f 75 74 6c 69 6e 65 00 |reateDoc|Outline.|
|00000b60| 00 04 a5 00 01 04 bc 00 | 02 00 00 00 9c 00 00 03 |........|........|
|00000b70| 8d 00 00 02 00 00 0f 06 | 47 65 6e 65 76 61 00 00 |........|Geneva..|
|00000b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 09 00 00 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 06 45 00 | 00 a8 02 bf ed a9 17 f5 |......E.|........|
|00000bb0| 13 00 00 00 0c 00 00 00 | 32 00 32 01 d6 02 23 4c |........|2.2...#L|
|00000bc0| 41 4e 44 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |AND.....|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 6c |........|.......l|
|00000be0| 6f 63 61 6c 20 28 61 64 | 72 54 61 62 6c 65 2c 20 |ocal (ad|rTable, |
|00000bf0| 61 64 72 4f 75 74 6c 69 | 6e 65 2c 20 69 29 0d 61 |adrOutli|ne, i).a|
|00000c00| 64 72 54 61 62 6c 65 20 | 3d 20 40 5b 63 6f 6d 6d |drTable |= @[comm|
|00000c10| 65 72 63 69 61 6c 2e 61 | 70 70 6e 61 6d 65 5d 0d |ercial.a|ppname].|
|00000c20| 61 64 72 4f 75 74 6c 69 | 6e 65 20 3d 20 40 73 63 |adrOutli|ne = @sc|
|00000c30| 72 61 74 63 68 70 61 64 | 2e 5b 63 6f 6d 6d 65 72 |ratchpad|.[commer|
|00000c40| 63 69 61 6c 2e 61 70 70 | 6e 61 6d 65 20 2b 20 22 |cial.app|name + "|
|00000c50| 44 6f 63 73 22 5d 0d 69 | 66 20 64 65 66 69 6e 65 |Docs"].i|f define|
|00000c60| 64 20 28 61 64 72 4f 75 | 74 6c 69 6e 65 5e 29 0d |d (adrOu|tline^).|
|00000c70| 09 64 65 6c 65 74 65 20 | 28 61 64 72 4f 75 74 6c |.delete |(adrOutl|
|00000c80| 69 6e 65 29 0d 6e 65 77 | 20 28 6f 75 74 6c 69 6e |ine).new| (outlin|
|00000c90| 65 54 79 70 65 2c 20 61 | 64 72 4f 75 74 6c 69 6e |eType, a|drOutlin|
|00000ca0| 65 29 0d 74 61 72 67 65 | 74 2e 73 65 74 20 28 61 |e).targe|t.set (a|
|00000cb0| 64 72 4f 75 74 6c 69 6e | 65 29 0d 65 64 69 74 4d |drOutlin|e).editM|
|00000cc0| 65 6e 75 2e 73 65 74 46 | 6f 6e 74 20 28 22 50 61 |enu.setF|ont ("Pa|
|00000cd0| 6c 61 74 69 6e 6f 22 29 | 0d 65 64 69 74 4d 65 6e |latino")|.editMen|
|00000ce0| 75 2e 73 65 74 46 6f 6e | 74 53 69 7a 65 20 28 31 |u.setFon|tSize (1|
|00000cf0| 32 29 0d 74 61 72 67 65 | 74 2e 73 65 74 20 28 61 |2).targe|t.set (a|
|00000d00| 64 72 4f 75 74 6c 69 6e | 65 29 0d 66 6f 72 20 69 |drOutlin|e).for i|
|00000d10| 20 3d 20 31 20 74 6f 20 | 73 69 7a 65 6f 66 20 28 | = 1 to |sizeof (|
|00000d20| 61 64 72 54 61 62 6c 65 | 5e 29 0d 09 6c 6f 63 61 |adrTable|^)..loca|
|00000d30| 6c 20 28 61 64 72 20 3d | 20 40 61 64 72 54 61 62 |l (adr =| @adrTab|
|00000d40| 6c 65 5e 20 5b 69 5d 29 | 0d 09 72 6f 6c 6c 62 65 |le^ [i])|..rollbe|
|00000d50| 61 63 68 62 61 6c 6c 20 | 28 29 0d 09 69 66 20 74 |achball |()..if t|
|00000d60| 79 70 65 6f 66 20 28 61 | 64 72 5e 29 20 21 3d 20 |ypeof (a|dr^) != |
|00000d70| 73 63 72 69 70 74 54 79 | 70 65 0d 09 09 63 6f 6e |scriptTy|pe...con|
|00000d80| 74 69 6e 75 65 0d 09 6c | 6f 63 61 6c 20 28 73 79 |tinue..l|ocal (sy|
|00000d90| 6e 74 61 78 20 3d 20 73 | 74 72 69 6e 67 2e 6e 74 |ntax = s|tring.nt|
|00000da0| 68 46 69 65 6c 64 20 28 | 73 74 72 69 6e 67 20 28 |hField (|string (|
|00000db0| 61 64 72 5e 29 2c 20 63 | 72 2c 20 31 29 29 0d 09 |adr^), c|r, 1))..|
|00000dc0| 73 79 6e 74 61 78 20 3d | 20 73 74 72 69 6e 67 2e |syntax =| string.|
|00000dd0| 6e 74 68 46 69 65 6c 64 | 20 28 73 79 6e 74 61 78 |nthField| (syntax|
|00000de0| 2c 20 22 7b 22 2c 20 31 | 29 20 c7 72 65 6d 6f 76 |, "{", 1|) .remov|
|00000df0| 65 20 63 6f 6d 6d 65 6e | 74 2c 20 69 66 20 70 72 |e commen|t, if pr|
|00000e00| 65 73 65 6e 74 0d 09 73 | 79 6e 74 61 78 20 3d 20 |esent..s|yntax = |
|00000e10| 63 6f 6d 6d 65 72 63 69 | 61 6c 2e 61 70 70 6e 61 |commerci|al.appna|
|00000e20| 6d 65 20 2b 20 27 2e 27 | 20 2b 20 28 73 79 6e 74 |me + '.'| + (synt|
|00000e30| 61 78 20 2d 20 22 6f 6e | 20 22 29 0d 09 72 6f 6c |ax - "on| ")..rol|
|00000e40| 6c 62 65 61 63 68 62 61 | 6c 6c 20 28 29 0d 09 6f |lbeachba|ll ()..o|
|00000e50| 70 2e 69 6e 73 65 72 74 | 20 28 63 6f 6d 6d 65 72 |p.insert| (commer|
|00000e60| 63 69 61 6c 2e 61 70 70 | 6e 61 6d 65 20 2b 20 27 |cial.app|name + '|
|00000e70| 2e 27 20 2b 20 6e 61 6d | 65 4f 66 20 28 61 64 72 |.' + nam|eOf (adr|
|00000e80| 5e 29 2c 20 64 6f 77 6e | 29 0d 09 6f 70 2e 69 6e |^), down|)..op.in|
|00000e90| 73 65 72 74 20 28 22 53 | 79 6e 74 61 78 22 2c 20 |sert ("S|yntax", |
|00000ea0| 72 69 67 68 74 29 0d 09 | 6f 70 2e 69 6e 73 65 72 |right)..|op.inser|
|00000eb0| 74 20 28 73 79 6e 74 61 | 78 2c 20 72 69 67 68 74 |t (synta|x, right|
|00000ec0| 29 0d 09 6f 70 2e 69 6e | 73 65 72 74 20 28 22 50 |)..op.in|sert ("P|
|00000ed0| 61 72 61 6d 65 74 65 72 | 73 22 2c 20 6c 65 66 74 |arameter|s", left|
|00000ee0| 29 0d 09 6f 70 2e 69 6e | 73 65 72 74 20 28 22 41 |)..op.in|sert ("A|
|00000ef0| 63 74 69 6f 6e 22 20 2b | 20 63 72 20 2b 20 22 52 |ction" +| cr + "R|
|00000f00| 65 74 75 72 6e 73 22 20 | 2b 20 63 72 20 2b 20 22 |eturns" |+ cr + "|
|00000f10| 45 78 61 6d 70 6c 65 73 | 22 20 2b 20 63 72 20 2b |Examples|" + cr +|
|00000f20| 20 22 4e 6f 74 65 73 22 | 20 2b 20 63 72 20 2b 20 | "Notes"| + cr + |
|00000f30| 22 53 65 65 20 41 6c 73 | 6f 22 2c 20 64 6f 77 6e |"See Als|o", down|
|00000f40| 29 0d 09 6f 70 2e 67 6f | 20 28 6c 65 66 74 2c 20 |)..op.go| (left, |
|00000f50| 31 29 0d 77 69 6e 64 6f | 77 2e 6f 70 65 6e 20 28 |1).windo|w.open (|
|00000f60| 61 64 72 4f 75 74 6c 69 | 6e 65 29 0d 80 00 00 00 |adrOutli|ne).....|
|00000f70| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000f80| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000f90| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000fa0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000fb0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000fd0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000fe0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000ff0| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00001000| 00 00 80 00 00 00 00 00 | 11 63 72 65 61 74 65 49 |........|.createI|
|00001010| 6e 73 74 61 6c 6c 46 69 | 6c 65 00 00 05 79 00 01 |nstallFi|le...y..|
|00001020| 04 bc 00 02 00 00 00 a2 | 00 00 04 5b 00 00 02 00 |........|...[....|
|00001030| 00 0f 06 47 65 6e 65 76 | 61 00 00 00 00 00 00 00 |...Genev|a.......|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 09 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 06 45 00 00 a4 9b 96 ee | a9 17 f5 13 00 00 00 68 |.E......|.......h|
|00001070| 00 00 00 32 00 1a 01 d6 | 01 d9 4c 41 4e 44 00 00 |...2....|..LAND..|
|00001080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001090| 00 00 00 00 00 00 00 00 | 00 00 6f 6e 20 63 72 65 |........|..on cre|
|000010a0| 61 74 65 49 6e 73 74 61 | 6c 6c 46 69 6c 65 20 28 |ateInsta|llFile (|
|000010b0| 61 70 70 6e 61 6d 65 2c | 20 61 70 70 63 72 65 61 |appname,| appcrea|
|000010c0| 74 6f 72 2c 20 66 6e 61 | 6d 65 29 20 0d 09 31 31 |tor, fna|me) ..11|
|000010d0| 2f 31 38 2f 39 33 20 44 | 57 3a 20 66 69 78 65 64 |/18/93 D|W: fixed|
|000010e0| 20 61 20 62 75 67 20 74 | 68 61 74 20 6b 65 70 74 | a bug t|hat kept|
|000010f0| 20 74 68 65 20 70 61 74 | 68 20 66 72 6f 6d 20 67 | the pat|h from g|
|00001100| 65 74 74 69 6e 67 20 73 | 65 74 20 74 6f 20 22 22 |etting s|et to ""|
|00001110| 0d 09 09 74 68 65 20 22 | 61 73 73 69 67 6e 6d 65 |...the "|assignme|
|00001120| 6e 74 22 20 74 6f 20 61 | 64 72 5e 2e 61 70 70 49 |nt" to a|dr^.appI|
|00001130| 6e 66 6f 2e 70 61 74 68 | 20 77 61 73 20 61 20 3d |nfo.path| was a =|
|00001140| 3d 20 6e 6f 74 20 61 20 | 3d 0d 09 0d 09 6c 6f 63 |= not a |=....loc|
|00001150| 61 6c 20 28 78 29 0d 09 | 62 75 6e 64 6c 65 20 c7 |al (x)..|bundle .|
|00001160| 63 72 65 61 74 65 20 74 | 68 65 20 66 69 6c 65 2c |create t|he file,|
|00001170| 20 73 61 76 65 20 74 68 | 65 20 69 6e 73 74 61 6c | save th|e instal|
|00001180| 6c 20 73 63 72 69 70 74 | 0d 09 09 63 6f 70 79 20 |l script|...copy |
|00001190| 65 6d 62 65 64 64 65 64 | 20 73 63 72 69 70 74 20 |embedded| script |
|000011a0| 69 6e 74 6f 20 61 20 6c | 6f 63 61 6c 20 73 6f 20 |into a l|ocal so |
|000011b0| 74 68 61 74 20 72 75 6e | 6e 69 6e 67 20 69 74 20 |that run|ning it |
|000011c0| 77 6f 6e 27 74 20 6f 76 | 65 72 77 72 69 74 65 20 |won't ov|erwrite |
|000011d0| 6c 61 74 65 73 74 20 76 | 65 72 73 69 6f 6e 0d 09 |latest v|ersion..|
|000011e0| 09 6c 6f 63 61 6c 20 28 | 63 61 6c 6c 49 6e 73 74 |.local (|callInst|
|000011f0| 61 6c 6c 41 70 70 29 0d | 09 09 74 61 62 6c 65 2e |allApp).|..table.|
|00001200| 61 73 73 69 67 6e 20 28 | 40 63 61 6c 6c 49 6e 73 |assign (|@callIns|
|00001210| 74 61 6c 6c 41 70 70 2c | 20 63 6f 6d 6d 65 72 63 |tallApp,| commerc|
|00001220| 69 61 6c 2e 63 61 6c 6c | 49 6e 73 74 61 6c 6c 41 |ial.call|InstallA|
|00001230| 70 70 29 0d 09 09 65 78 | 70 6f 72 74 2e 73 65 6e |pp)...ex|port.sen|
|00001240| 64 74 6f 64 65 73 6b 74 | 6f 70 20 28 40 63 61 6c |dtodeskt|op (@cal|
|00001250| 6c 49 6e 73 74 61 6c 6c | 41 70 70 2c 20 66 6e 61 |lInstall|App, fna|
|00001260| 6d 65 29 0d 09 62 75 6e | 64 6c 65 20 c7 73 61 76 |me)..bun|dle .sav|
|00001270| 65 20 74 68 65 20 61 70 | 70 20 6e 61 6d 65 20 61 |e the ap|p name a|
|00001280| 6e 64 20 63 72 65 61 74 | 6f 72 20 69 64 0d 09 09 |nd creat|or id...|
|00001290| 72 65 7a 2e 70 75 74 73 | 74 72 69 6e 67 72 65 73 |rez.puts|tringres|
|000012a0| 6f 75 72 63 65 20 28 66 | 6e 61 6d 65 2c 20 31 34 |ource (f|name, 14|
|000012b0| 30 2c 20 61 70 70 6e 61 | 6d 65 29 0d 09 09 72 65 |0, appna|me)...re|
|000012c0| 7a 2e 70 75 74 73 74 72 | 69 6e 67 72 65 73 6f 75 |z.putstr|ingresou|
|000012d0| 72 63 65 20 28 66 6e 61 | 6d 65 2c 20 31 34 31 2c |rce (fna|me, 141,|
|000012e0| 20 61 70 70 63 72 65 61 | 74 6f 72 29 0d 09 62 75 | appcrea|tor)..bu|
|000012f0| 6e 64 6c 65 20 c7 73 61 | 76 65 20 72 75 6e 74 69 |ndle .sa|ve runti|
|00001300| 6d 65 20 6d 65 6e 75 62 | 61 72 2c 20 69 66 20 6f |me menub|ar, if o|
|00001310| 6e 65 20 69 73 20 64 65 | 66 69 6e 65 64 0d 09 09 |ne is de|fined...|
|00001320| 61 64 72 20 3d 20 40 73 | 79 73 74 65 6d 2e 6d 65 |adr = @s|ystem.me|
|00001330| 6e 75 62 61 72 73 2e 5b | 61 70 70 63 72 65 61 74 |nubars.[|appcreat|
|00001340| 6f 72 5d 0d 09 09 69 66 | 20 64 65 66 69 6e 65 64 |or]...if| defined|
|00001350| 20 28 61 64 72 5e 29 0d | 09 09 09 70 61 63 6b 20 | (adr^).|...pack |
|00001360| 28 61 64 72 5e 2c 20 40 | 78 29 0d 09 09 09 72 65 |(adr^, @|x)....re|
|00001370| 7a 2e 70 75 74 72 65 73 | 6f 75 72 63 65 20 28 66 |z.putres|ource (f|
|00001380| 6e 61 6d 65 2c 20 6d 65 | 6e 75 62 61 72 74 79 70 |name, me|nubartyp|
|00001390| 65 2c 20 31 32 38 2c 20 | 40 78 29 0d 09 62 75 6e |e, 128, |@x)..bun|
|000013a0| 64 6c 65 20 c7 73 61 76 | 65 20 67 6c 75 65 20 73 |dle .sav|e glue s|
|000013b0| 63 72 69 70 74 73 0d 09 | 09 61 64 72 20 3d 20 40 |cripts..|.adr = @|
|000013c0| 73 79 73 74 65 6d 2e 76 | 65 72 62 73 2e 61 70 70 |system.v|erbs.app|
|000013d0| 73 2e 5b 61 70 70 6e 61 | 6d 65 5d 0d 09 09 69 66 |s.[appna|me]...if|
|000013e0| 20 64 65 66 69 6e 65 64 | 20 28 61 64 72 5e 29 0d | defined| (adr^).|
|000013f0| 09 09 09 6c 6f 63 61 6c | 20 28 6f 6c 64 70 61 74 |...local| (oldpat|
|00001400| 68 20 3d 20 61 64 72 5e | 2e 61 70 70 49 6e 66 6f |h = adr^|.appInfo|
|00001410| 2e 70 61 74 68 29 20 c7 | 73 61 76 65 20 73 6f 20 |.path) .|save so |
|00001420| 77 65 20 63 61 6e 20 72 | 65 73 74 6f 72 65 20 69 |we can r|estore i|
|00001430| 74 20 6c 61 74 65 72 0d | 09 09 09 61 64 72 5e 2e |t later.|...adr^.|
|00001440| 61 70 70 49 6e 66 6f 2e | 70 61 74 68 20 3d 20 22 |appInfo.|path = "|
|00001450| 22 20 c7 69 74 27 6c 6c | 20 62 65 20 73 65 74 20 |" .it'll| be set |
|00001460| 74 68 65 20 66 69 72 73 | 74 20 74 69 6d 65 20 74 |the firs|t time t|
|00001470| 68 65 20 75 73 65 72 20 | 72 75 6e 73 20 74 68 65 |he user |runs the|
|00001480| 20 61 70 70 0d 09 09 09 | 70 61 63 6b 20 28 61 64 | app....|pack (ad|
|00001490| 72 5e 2c 20 40 78 29 0d | 09 09 09 72 65 7a 2e 70 |r^, @x).|...rez.p|
|000014a0| 75 74 72 65 73 6f 75 72 | 63 65 20 28 66 6e 61 6d |utresour|ce (fnam|
|000014b0| 65 2c 20 74 61 62 6c 65 | 74 79 70 65 2c 20 31 32 |e, table|type, 12|
|000014c0| 38 2c 20 40 78 29 0d 09 | 09 09 61 64 72 5e 2e 61 |8, @x)..|..adr^.a|
|000014d0| 70 70 49 6e 66 6f 2e 70 | 61 74 68 20 3d 20 6f 6c |ppInfo.p|ath = ol|
|000014e0| 64 70 61 74 68 0d 09 72 | 65 74 75 72 6e 20 28 74 |dpath..r|eturn (t|
|000014f0| 72 75 65 29 0d 80 00 00 | 00 00 00 84 00 00 00 00 |rue)....|........|
|00001500| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00001510| 00 00 00 80 00 00 00 00 | 00 84 00 00 00 00 00 80 |........|........|
|00001520| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00001530| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00001540| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00001570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001590| 00 80 00 00 00 00 00 0c | 65 6e 74 65 72 41 70 70 |........|enterApp|
|000015a0| 4e 61 6d 65 00 00 11 2b | 00 01 04 bc 00 02 00 00 |Name...+|........|
|000015b0| 02 7c 00 00 0e 33 00 00 | 02 00 00 0f 06 47 65 6e |.|...3..|.....Gen|
|000015c0| 65 76 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |eva.....|........|
|000015d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 09 |........|........|
|000015e0| 00 00 00 00 00 17 00 00 | 00 00 06 45 00 00 a6 ba |........|...E....|
|000015f0| 70 ad a9 17 f5 13 00 00 | 00 36 00 00 00 32 00 32 |p.......|.6...2.2|
|00001600| 01 d6 02 26 4c 41 4e 44 | 00 00 00 00 00 00 00 00 |...&LAND|........|
|00001610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001620| 00 00 00 00 69 66 20 64 | 69 61 6c 6f 67 2e 61 73 |....if d|ialog.as|
|00001630| 6b 20 28 22 45 6e 74 65 | 72 20 74 68 65 20 6e 61 |k ("Ente|r the na|
|00001640| 6d 65 20 66 6f 72 20 79 | 6f 75 72 20 61 70 70 27 |me for y|our app'|
|00001650| 73 20 d2 47 6c 75 65 d3 | 20 74 61 62 6c 65 3a 22 |s .Glue.| table:"|
|00001660| 2c 20 40 63 6f 6d 6d 65 | 72 63 69 61 6c 2e 61 70 |, @comme|rcial.ap|
|00001670| 70 6e 61 6d 65 29 0d 09 | 6c 6f 63 61 6c 20 28 73 |pname)..|local (s|
|00001680| 6f 6d 65 74 68 69 6e 67 | 43 72 65 61 74 65 64 20 |omething|Created |
|00001690| 3d 20 66 61 6c 73 65 29 | 0d 09 6c 6f 63 61 6c 20 |= false)|..local |
|000016a0| 28 61 64 72 47 6c 75 65 | 54 61 62 6c 65 20 3d 20 |(adrGlue|Table = |
|000016b0| 40 73 79 73 74 65 6d 2e | 76 65 72 62 73 2e 61 70 |@system.|verbs.ap|
|000016c0| 70 73 2e 5b 63 6f 6d 6d | 65 72 63 69 61 6c 2e 61 |ps.[comm|ercial.a|
|000016d0| 70 70 6e 61 6d 65 5d 29 | 0d 09 69 66 20 6e 6f 74 |ppname])|..if not|
|000016e0| 20 64 65 66 69 6e 65 64 | 20 28 61 64 72 47 6c 75 | defined| (adrGlu|
|000016f0| 65 54 61 62 6c 65 5e 29 | 0d 09 09 6f 6e 20 72 65 |eTable^)|...on re|
|00001700| 70 6c 61 63 65 41 6c 6c | 20 28 73 65 61 72 63 68 |placeAll| (search|
|00001710| 73 74 72 69 6e 67 2c 20 | 72 65 70 6c 61 63 65 73 |string, |replaces|
|00001720| 74 72 69 6e 67 29 0d 09 | 09 09 6c 6f 63 61 6c 20 |tring)..|..local |
|00001730| 28 6e 75 6d 72 65 70 6c | 61 63 65 64 2c 20 73 61 |(numrepl|aced, sa|
|00001740| 76 65 64 70 61 72 61 6d | 73 29 0d 09 09 09 0d 09 |vedparam|s)......|
|00001750| 09 09 74 61 62 6c 65 2e | 61 73 73 69 67 6e 20 28 |..table.|assign (|
|00001760| 40 73 61 76 65 64 70 61 | 72 61 6d 73 2c 20 73 65 |@savedpa|rams, se|
|00001770| 61 72 63 68 2e 70 61 72 | 61 6d 73 29 20 c7 73 61 |arch.par|ams) .sa|
|00001780| 76 65 20 6f 66 66 0d 09 | 09 09 0d 09 09 09 73 65 |ve off..|......se|
|00001790| 61 72 63 68 2e 70 61 72 | 61 6d 73 2e 66 6c 61 74 |arch.par|ams.flat|
|000017a0| 73 65 61 72 63 68 20 3d | 20 66 61 6c 73 65 0d 09 |search =| false..|
|000017b0| 09 09 73 65 61 72 63 68 | 2e 70 61 72 61 6d 73 2e |..search|.params.|
|000017c0| 66 72 6f 6e 74 77 69 6e | 64 6f 77 6f 6e 6c 79 20 |frontwin|dowonly |
|000017d0| 3d 20 66 61 6c 73 65 0d | 09 09 09 73 65 61 72 63 |= false.|...searc|
|000017e0| 68 2e 70 61 72 61 6d 73 | 2e 77 68 6f 6c 65 77 6f |h.params|.wholewo|
|000017f0| 72 64 73 20 3d 20 66 61 | 6c 73 65 0d 09 09 09 0d |rds = fa|lse.....|
|00001800| 09 09 09 73 65 61 72 63 | 68 2e 70 61 72 61 6d 73 |...searc|h.params|
|00001810| 2e 73 65 61 72 63 68 66 | 6f 72 20 3d 20 73 65 61 |.searchf|or = sea|
|00001820| 72 63 68 73 74 72 69 6e | 67 0d 09 09 09 73 65 61 |rchstrin|g....sea|
|00001830| 72 63 68 2e 70 61 72 61 | 6d 73 2e 72 65 70 6c 61 |rch.para|ms.repla|
|00001840| 63 65 77 69 74 68 20 3d | 20 72 65 70 6c 61 63 65 |cewith =| replace|
|00001850| 73 74 72 69 6e 67 0d 09 | 09 09 0d 09 09 09 73 65 |string..|......se|
|00001860| 61 72 63 68 2e 72 65 73 | 65 74 20 28 29 0d 09 09 |arch.res|et ()...|
|00001870| 09 6e 75 6d 72 65 70 6c | 61 63 65 64 20 3d 20 73 |.numrepl|aced = s|
|00001880| 65 61 72 63 68 2e 72 65 | 70 6c 61 63 65 61 6c 6c |earch.re|placeall|
|00001890| 20 28 29 0d 09 09 09 0d | 09 09 09 74 61 62 6c 65 | ().....|...table|
|000018a0| 2e 61 73 73 69 67 6e 20 | 28 40 73 65 61 72 63 68 |.assign |(@search|
|000018b0| 2e 70 61 72 61 6d 73 2c | 20 73 61 76 65 64 70 61 |.params,| savedpa|
|000018c0| 72 61 6d 73 29 20 c7 72 | 65 73 74 6f 72 65 20 6f |rams) .r|estore o|
|000018d0| 72 69 67 69 6e 61 6c 73 | 0d 09 09 09 0d 09 09 09 |riginals|........|
|000018e0| 72 65 74 75 72 6e 20 28 | 6e 75 6d 72 65 70 6c 61 |return (|numrepla|
|000018f0| 63 65 64 29 0d 09 09 69 | 66 20 6e 6f 74 20 64 69 |ced)...i|f not di|
|00001900| 61 6c 6f 67 2e 63 6f 6e | 66 69 72 6d 20 28 22 43 |alog.con|firm ("C|
|00001910| 72 65 61 74 65 20 61 20 | 6e 65 77 20 67 6c 75 65 |reate a |new glue|
|00001920| 20 73 63 72 69 70 74 20 | 74 61 62 6c 65 20 66 6f | script |table fo|
|00001930| 72 20 22 20 2b 20 63 6f | 6d 6d 65 72 63 69 61 6c |r " + co|mmercial|
|00001940| 2e 61 70 70 6e 61 6d 65 | 20 2b 20 22 3f 22 29 0d |.appname| + "?").|
|00001950| 09 09 09 72 65 74 75 72 | 6e 0d 09 09 6e 65 77 20 |...retur|n...new |
|00001960| 28 74 61 62 6c 65 74 79 | 70 65 2c 20 61 64 72 47 |(tablety|pe, adrG|
|00001970| 6c 75 65 54 61 62 6c 65 | 29 0d 09 09 74 61 62 6c |lueTable|)...tabl|
|00001980| 65 2e 63 6f 70 79 63 6f | 6e 74 65 6e 74 73 20 28 |e.copyco|ntents (|
|00001990| 40 63 6f 6d 6d 65 72 63 | 69 61 6c 2e 6e 65 77 54 |@commerc|ial.newT|
|000019a0| 61 62 6c 65 2c 20 61 64 | 72 47 6c 75 65 54 61 62 |able, ad|rGlueTab|
|000019b0| 6c 65 29 0d 09 09 74 61 | 72 67 65 74 2e 73 65 74 |le)...ta|rget.set|
|000019c0| 20 28 61 64 72 47 6c 75 | 65 54 61 62 6c 65 29 0d | (adrGlu|eTable).|
|000019d0| 09 09 72 65 70 6c 61 63 | 65 41 6c 6c 20 28 22 53 |..replac|eAll ("S|
|000019e0| 61 6d 70 6c 65 22 2c 20 | 63 6f 6d 6d 65 72 63 69 |ample", |commerci|
|000019f0| 61 6c 2e 61 70 70 6e 61 | 6d 65 29 0d 09 09 74 61 |al.appna|me)...ta|
|00001a00| 72 67 65 74 2e 63 6c 65 | 61 72 20 28 29 0d 09 09 |rget.cle|ar ()...|
|00001a10| 73 6f 6d 65 74 68 69 6e | 67 43 72 65 61 74 65 64 |somethin|gCreated|
|00001a20| 20 3d 20 74 72 75 65 0d | 09 09 73 79 73 2e 73 79 | = true.|..sys.sy|
|00001a30| 73 74 65 6d 54 61 73 6b | 20 28 29 0d 09 0d 09 6c |stemTask| ()....l|
|00001a40| 6f 63 61 6c 20 28 61 64 | 72 41 70 70 49 6e 66 6f |ocal (ad|rAppInfo|
|00001a50| 20 3d 20 40 61 64 72 47 | 6c 75 65 54 61 62 6c 65 | = @adrG|lueTable|
|00001a60| 5e 2e 61 70 70 49 6e 66 | 6f 29 0d 09 69 66 20 6e |^.appInf|o)..if n|
|00001a70| 6f 74 20 64 65 66 69 6e | 65 64 20 28 61 64 72 41 |ot defin|ed (adrA|
|00001a80| 70 70 49 6e 66 6f 5e 29 | 0d 09 09 69 66 20 6e 6f |ppInfo^)|...if no|
|00001a90| 74 20 64 69 61 6c 6f 67 | 2e 63 6f 6e 66 69 72 6d |t dialog|.confirm|
|00001aa0| 20 28 22 43 72 65 61 74 | 65 20 61 20 6e 65 77 20 | ("Creat|e a new |
|00001ab0| 61 70 70 49 6e 66 6f 20 | 74 61 62 6c 65 20 66 6f |appInfo |table fo|
|00001ac0| 72 20 22 20 2b 20 63 6f | 6d 6d 65 72 63 69 61 6c |r " + co|mmercial|
|00001ad0| 2e 61 70 70 6e 61 6d 65 | 20 2b 20 22 3f 22 29 0d |.appname| + "?").|
|00001ae0| 09 09 09 72 65 74 75 72 | 6e 0d 09 09 6e 65 77 20 |...retur|n...new |
|00001af0| 28 74 61 62 6c 65 74 79 | 70 65 2c 20 61 64 72 41 |(tablety|pe, adrA|
|00001b00| 70 70 49 6e 66 6f 29 0d | 09 09 73 6f 6d 65 74 68 |ppInfo).|..someth|
|00001b10| 69 6e 67 43 72 65 61 74 | 65 64 20 3d 20 74 72 75 |ingCreat|ed = tru|
|00001b20| 65 0d 09 09 61 64 72 41 | 70 70 49 6e 66 6f 5e 2e |e...adrA|ppInfo^.|
|00001b30| 61 70 70 31 73 75 70 70 | 6f 72 74 65 64 20 3d 20 |app1supp|orted = |
|00001b40| 66 61 6c 73 65 0d 09 09 | 61 64 72 41 70 70 49 6e |false...|adrAppIn|
|00001b50| 66 6f 5e 2e 6e 61 6d 65 | 20 3d 20 63 6f 6d 6d 65 |fo^.name| = comme|
|00001b60| 72 63 69 61 6c 2e 61 70 | 70 6e 61 6d 65 0d 09 09 |rcial.ap|pname...|
|00001b70| 61 64 72 41 70 70 49 6e | 66 6f 5e 2e 73 68 61 72 |adrAppIn|fo^.shar|
|00001b80| 65 64 4d 65 6e 75 73 20 | 3d 20 64 69 61 6c 6f 67 |edMenus |= dialog|
|00001b90| 2e 79 65 73 4e 6f 20 28 | 22 44 6f 65 73 20 22 20 |.yesNo (|"Does " |
|00001ba0| 2b 20 63 6f 6d 6d 65 72 | 63 69 61 6c 2e 61 70 70 |+ commer|cial.app|
|00001bb0| 6e 61 6d 65 20 2b 20 22 | 20 73 75 70 70 6f 72 74 |name + "| support|
|00001bc0| 20 4d 65 6e 75 20 53 68 | 61 72 69 6e 67 3f 22 29 | Menu Sh|aring?")|
|00001bd0| 0d 09 09 61 64 72 41 70 | 70 49 6e 66 6f 5e 2e 70 |...adrAp|pInfo^.p|
|00001be0| 61 74 68 20 3d 20 22 22 | 0d 09 09 61 64 72 41 70 |ath = ""|...adrAp|
|00001bf0| 70 49 6e 66 6f 5e 2e 69 | 64 20 3d 20 27 3f 3f 3f |pInfo^.i|d = '???|
|00001c00| 3f 27 0d 09 09 69 66 20 | 6e 6f 74 20 64 69 61 6c |?'...if |not dial|
|00001c10| 6f 67 2e 61 73 6b 20 28 | 22 57 68 61 74 20 69 73 |og.ask (|"What is|
|00001c20| 20 22 20 2b 20 63 6f 6d | 6d 65 72 63 69 61 6c 2e | " + com|mercial.|
|00001c30| 61 70 70 6e 61 6d 65 20 | 2b 20 22 27 73 20 63 72 |appname |+ "'s cr|
|00001c40| 65 61 74 6f 72 20 69 64 | 3f 22 2c 20 40 61 64 72 |eator id|?", @adr|
|00001c50| 41 70 70 49 6e 66 6f 5e | 2e 69 64 29 0d 09 09 09 |AppInfo^|.id)....|
|00001c60| 72 65 74 75 72 6e 0d 09 | 09 61 64 72 41 70 70 49 |return..|.adrAppI|
|00001c70| 6e 66 6f 5e 2e 69 64 20 | 3d 20 73 74 72 69 6e 67 |nfo^.id |= string|
|00001c80| 34 20 28 61 64 72 41 70 | 70 49 6e 66 6f 5e 2e 69 |4 (adrAp|pInfo^.i|
|00001c90| 64 29 0d 09 09 61 64 72 | 47 6c 75 65 54 61 62 6c |d)...adr|GlueTabl|
|00001ca0| 65 5e 2e 69 64 20 3d 20 | 61 64 72 41 70 70 49 6e |e^.id = |adrAppIn|
|00001cb0| 66 6f 5e 2e 69 64 0d 09 | 0d 09 6c 6f 63 61 6c 20 |fo^.id..|..local |
|00001cc0| 28 70 72 6f 6d 70 74 46 | 6f 72 46 69 6c 65 20 3d |(promptF|orFile =|
|00001cd0| 20 66 61 6c 73 65 29 0d | 09 62 75 6e 64 6c 65 20 | false).|.bundle |
|00001ce0| c7 64 65 74 65 72 6d 69 | 6e 65 20 69 66 20 77 65 |.determi|ne if we|
|00001cf0| 20 73 68 6f 75 6c 64 20 | 70 72 6f 6d 70 74 20 66 | should |prompt f|
|00001d00| 6f 72 20 74 68 65 20 66 | 69 6c 65 0d 09 09 6c 6f |or the f|ile...lo|
|00001d10| 63 61 6c 20 28 66 20 3d | 20 61 64 72 41 70 70 49 |cal (f =| adrAppI|
|00001d20| 6e 66 6f 5e 2e 70 61 74 | 68 29 0d 09 09 69 66 20 |nfo^.pat|h)...if |
|00001d30| 66 20 3d 3d 20 22 22 0d | 09 09 09 70 72 6f 6d 70 |f == "".|...promp|
|00001d40| 74 46 6f 72 46 69 6c 65 | 20 3d 20 74 72 75 65 0d |tForFile| = true.|
|00001d50| 09 09 65 6c 73 65 0d 09 | 09 09 69 66 20 66 69 6c |..else..|..if fil|
|00001d60| 65 2e 65 78 69 73 74 73 | 20 28 66 29 0d 09 09 09 |e.exists| (f)....|
|00001d70| 09 69 66 20 66 69 6c 65 | 2e 74 79 70 65 20 28 66 |.if file|.type (f|
|00001d80| 29 20 21 3d 20 27 41 50 | 50 4c 27 0d 09 09 09 09 |) != 'AP|PL'.....|
|00001d90| 09 70 72 6f 6d 70 74 46 | 6f 72 46 69 6c 65 20 3d |.promptF|orFile =|
|00001da0| 20 74 72 75 65 0d 09 09 | 09 65 6c 73 65 0d 09 09 | true...|.else...|
|00001db0| 09 09 70 72 6f 6d 70 74 | 46 6f 72 46 69 6c 65 20 |..prompt|ForFile |
|00001dc0| 3d 20 74 72 75 65 0d 09 | 69 66 20 70 72 6f 6d 70 |= true..|if promp|
|00001dd0| 74 46 6f 72 46 69 6c 65 | 0d 09 09 61 64 72 41 70 |tForFile|...adrAp|
|00001de0| 70 49 6e 66 6f 5e 2e 70 | 61 74 68 20 3d 20 66 69 |pInfo^.p|ath = fi|
|00001df0| 6c 65 2e 66 69 6e 64 41 | 70 70 6c 69 63 61 74 69 |le.findA|pplicati|
|00001e00| 6f 6e 20 28 61 64 72 41 | 70 70 49 6e 66 6f 5e 2e |on (adrA|ppInfo^.|
|00001e10| 69 64 29 0d 09 09 69 66 | 20 6e 6f 74 20 66 69 6c |id)...if| not fil|
|00001e20| 65 2e 67 65 74 46 69 6c | 65 44 69 61 6c 6f 67 20 |e.getFil|eDialog |
|00001e30| 28 22 57 68 65 72 65 20 | 69 73 20 22 20 2b 20 63 |("Where |is " + c|
|00001e40| 6f 6d 6d 65 72 63 69 61 | 6c 2e 61 70 70 6e 61 6d |ommercia|l.appnam|
|00001e50| 65 20 2b 20 22 3f 22 2c | 20 40 61 64 72 41 70 70 |e + "?",| @adrApp|
|00001e60| 49 6e 66 6f 5e 2e 70 61 | 74 68 2c 20 27 41 50 50 |Info^.pa|th, 'APP|
|00001e70| 4c 27 29 0d 09 09 09 72 | 65 74 75 72 6e 0d 09 09 |L')....r|eturn...|
|00001e80| 61 64 72 41 70 70 49 6e | 66 6f 5e 2e 69 64 20 3d |adrAppIn|fo^.id =|
|00001e90| 20 66 69 6c 65 2e 63 72 | 65 61 74 6f 72 20 28 61 | file.cr|eator (a|
|00001ea0| 64 72 41 70 70 49 6e 66 | 6f 5e 2e 70 61 74 68 29 |drAppInf|o^.path)|
|00001eb0| 0d 09 09 61 64 72 47 6c | 75 65 54 61 62 6c 65 5e |...adrGl|ueTable^|
|00001ec0| 2e 69 64 20 3d 20 61 64 | 72 41 70 70 49 6e 66 6f |.id = ad|rAppInfo|
|00001ed0| 5e 2e 69 64 0d 09 0d 09 | 69 66 20 73 6f 6d 65 74 |^.id....|if somet|
|00001ee0| 68 69 6e 67 43 72 65 61 | 74 65 64 20 c7 73 65 65 |hingCrea|ted .see|
|00001ef0| 64 20 74 61 62 6c 65 20 | 77 69 74 68 20 73 63 72 |d table |with scr|
|00001f00| 69 70 74 73 20 69 66 20 | 74 61 62 6c 65 20 6f 72 |ipts if |table or|
|00001f10| 20 61 70 70 49 6e 66 6f | 20 69 73 20 6e 65 77 0d | appInfo| is new.|
|00001f20| 09 09 69 66 20 72 65 7a | 2e 63 6f 75 6e 74 52 65 |..if rez|.countRe|
|00001f30| 73 6f 75 72 63 65 73 20 | 28 61 64 72 41 70 70 49 |sources |(adrAppI|
|00001f40| 6e 66 6f 5e 2e 70 61 74 | 68 2c 20 27 61 65 74 65 |nfo^.pat|h, 'aete|
|00001f50| 27 29 20 3e 20 30 0d 09 | 09 09 69 66 20 64 69 61 |') > 0..|..if dia|
|00001f60| 6c 6f 67 2e 63 6f 6e 66 | 69 72 6d 20 28 22 43 72 |log.conf|irm ("Cr|
|00001f70| 65 61 74 65 20 67 6c 75 | 65 20 73 63 72 69 70 74 |eate glu|e script|
|00001f80| 73 20 62 61 73 65 64 20 | 6f 6e 20 22 20 2b 20 63 |s based |on " + c|
|00001f90| 6f 6d 6d 65 72 63 69 61 | 6c 2e 61 70 70 6e 61 6d |ommercia|l.appnam|
|00001fa0| 65 20 2b 20 22 d5 73 20 | 27 61 65 74 65 27 20 72 |e + ".s |'aete' r|
|00001fb0| 65 73 6f 75 72 63 65 3f | 22 29 0d 09 09 09 09 63 |esource?|").....c|
|00001fc0| 6f 6d 6d 65 72 63 69 61 | 6c 2e 69 6d 70 6f 72 74 |ommercia|l.import|
|00001fd0| 41 65 74 65 49 6e 66 6f | 20 28 29 0d 09 0d 09 69 |AeteInfo| ()....i|
|00001fe0| 66 20 61 64 72 41 70 70 | 49 6e 66 6f 5e 2e 73 68 |f adrApp|Info^.sh|
|00001ff0| 61 72 65 64 4d 65 6e 75 | 73 0d 09 09 6c 6f 63 61 |aredMenu|s...loca|
|00002000| 6c 20 28 61 64 72 4d 65 | 6e 75 42 61 72 20 3d 20 |l (adrMe|nuBar = |
|00002010| 40 73 79 73 74 65 6d 2e | 6d 65 6e 75 62 61 72 73 |@system.|menubars|
|00002020| 2e 5b 61 64 72 41 70 70 | 49 6e 66 6f 5e 2e 69 64 |.[adrApp|Info^.id|
|00002030| 5d 29 0d 09 09 69 66 20 | 6e 6f 74 20 64 65 66 69 |])...if |not defi|
|00002040| 6e 65 64 20 28 61 64 72 | 4d 65 6e 75 42 61 72 5e |ned (adr|MenuBar^|
|00002050| 29 0d 09 09 09 69 66 20 | 6e 6f 74 20 64 69 61 6c |)....if |not dial|
|00002060| 6f 67 2e 63 6f 6e 66 69 | 72 6d 20 28 22 43 72 65 |og.confi|rm ("Cre|
|00002070| 61 74 65 20 61 20 6e 65 | 77 20 73 68 61 72 65 64 |ate a ne|w shared|
|00002080| 20 6d 65 6e 75 20 62 61 | 72 20 66 6f 72 20 22 20 | menu ba|r for " |
|00002090| 2b 20 63 6f 6d 6d 65 72 | 63 69 61 6c 2e 61 70 70 |+ commer|cial.app|
|000020a0| 6e 61 6d 65 20 2b 20 22 | 3f 22 29 0d 09 09 09 09 |name + "|?").....|
|000020b0| 72 65 74 75 72 6e 0d 09 | 09 09 6f 6e 20 6c 69 6e |return..|..on lin|
|000020c0| 6b 53 63 72 69 70 74 20 | 28 73 63 72 69 70 74 53 |kScript |(scriptS|
|000020d0| 74 72 69 6e 67 29 0d 09 | 09 09 09 6c 6f 63 61 6c |tring)..|...local|
|000020e0| 20 28 74 65 6d 70 73 63 | 72 69 70 74 29 0d 09 09 | (tempsc|ript)...|
|000020f0| 09 09 0d 09 09 09 09 6e | 65 77 20 28 73 63 72 69 |.......n|ew (scri|
|00002100| 70 74 54 79 70 65 2c 20 | 40 74 65 6d 70 73 63 72 |ptType, |@tempscr|
|00002110| 69 70 74 29 0d 09 09 09 | 09 74 61 72 67 65 74 2e |ipt)....|.target.|
|00002120| 73 65 74 20 28 40 74 65 | 6d 70 73 63 72 69 70 74 |set (@te|mpscript|
|00002130| 29 0d 09 09 09 09 65 64 | 69 74 4d 65 6e 75 2e 73 |).....ed|itMenu.s|
|00002140| 65 74 46 6f 6e 74 20 28 | 75 73 65 72 2e 70 72 65 |etFont (|user.pre|
|00002150| 66 65 72 65 6e 63 65 73 | 2e 73 63 72 69 70 74 66 |ferences|.scriptf|
|00002160| 6f 6e 74 29 0d 09 09 09 | 09 65 64 69 74 4d 65 6e |ont)....|.editMen|
|00002170| 75 2e 73 65 74 46 6f 6e | 74 53 69 7a 65 20 28 75 |u.setFon|tSize (u|
|00002180| 73 65 72 2e 70 72 65 66 | 65 72 65 6e 63 65 73 2e |ser.pref|erences.|
|00002190| 73 63 72 69 70 74 66 6f | 6e 74 73 69 7a 65 29 0d |scriptfo|ntsize).|
|000021a0| 09 09 09 09 6f 70 2e 73 | 65 74 4c 69 6e 65 54 65 |....op.s|etLineTe|
|000021b0| 78 74 20 28 73 63 72 69 | 70 74 53 74 72 69 6e 67 |xt (scri|ptString|
|000021c0| 29 0d 09 09 09 09 6f 70 | 2e 69 6e 73 65 72 74 20 |).....op|.insert |
|000021d0| 28 22 46 72 6f 6e 74 69 | 65 72 2e 62 72 69 6e 67 |("Fronti|er.bring|
|000021e0| 54 6f 46 72 6f 6e 74 20 | 28 29 22 2c 20 64 6f 77 |ToFront |()", dow|
|000021f0| 6e 29 0d 09 09 09 09 74 | 61 72 67 65 74 2e 63 6c |n).....t|arget.cl|
|00002200| 65 61 72 20 28 29 0d 09 | 09 09 09 0d 09 09 09 09 |ear ()..|........|
|00002210| 74 61 72 67 65 74 2e 73 | 65 74 20 28 61 64 72 4d |target.s|et (adrM|
|00002220| 65 6e 75 42 61 72 29 0d | 09 09 09 09 6d 65 6e 75 |enuBar).|....menu|
|00002230| 2e 73 65 74 53 63 72 69 | 70 74 20 28 74 65 6d 70 |.setScri|pt (temp|
|00002240| 73 63 72 69 70 74 29 0d | 09 09 09 0d 09 09 09 74 |script).|.......t|
|00002250| 61 62 6c 65 2e 63 6f 70 | 79 20 28 40 63 6f 6d 6d |able.cop|y (@comm|
|00002260| 65 72 63 69 61 6c 2e 6e | 65 77 4d 65 6e 75 42 61 |ercial.n|ewMenuBa|
|00002270| 72 2c 20 40 73 79 73 74 | 65 6d 2e 6d 65 6e 75 62 |r, @syst|em.menub|
|00002280| 61 72 73 29 0d 09 09 09 | 74 61 62 6c 65 2e 72 65 |ars)....|table.re|
|00002290| 6e 61 6d 65 20 28 40 73 | 79 73 74 65 6d 2e 6d 65 |name (@s|ystem.me|
|000022a0| 6e 75 62 61 72 73 2e 6e | 65 77 4d 65 6e 75 42 61 |nubars.n|ewMenuBa|
|000022b0| 72 2c 20 61 64 72 41 70 | 70 49 6e 66 6f 5e 2e 69 |r, adrAp|pInfo^.i|
|000022c0| 64 29 0d 09 09 09 74 61 | 72 67 65 74 2e 73 65 74 |d)....ta|rget.set|
|000022d0| 20 28 61 64 72 4d 65 6e | 75 42 61 72 29 0d 09 09 | (adrMen|uBar)...|
|000022e0| 09 6f 70 2e 66 69 72 73 | 74 53 75 6d 6d 69 74 20 |.op.firs|tSummit |
|000022f0| 28 29 0d 09 09 09 6f 70 | 2e 65 78 70 61 6e 64 20 |()....op|.expand |
|00002300| 28 69 6e 66 69 6e 69 74 | 79 29 0d 09 09 09 6f 70 |(infinit|y)....op|
|00002310| 2e 67 6f 20 28 72 69 67 | 68 74 2c 20 31 29 0d 09 |.go (rig|ht, 1)..|
|00002320| 09 09 6f 70 2e 67 6f 20 | 28 64 6f 77 6e 2c 20 69 |..op.go |(down, i|
|00002330| 6e 66 69 6e 69 74 79 29 | 20 c7 63 75 72 73 6f 72 |nfinity)| .cursor|
|00002340| 20 6f 6e 20 22 45 64 69 | 74 20 53 63 72 69 70 74 | on "Edi|t Script|
|00002350| 73 20 54 61 62 6c 65 22 | 0d 09 09 09 6c 69 6e 6b |s Table"|....link|
|00002360| 53 63 72 69 70 74 20 28 | 22 65 64 69 74 20 28 40 |Script (|"edit (@|
|00002370| 22 20 2b 20 63 6f 6d 6d | 65 72 63 69 61 6c 2e 61 |" + comm|ercial.a|
|00002380| 70 70 6e 61 6d 65 20 2b | 20 22 29 22 29 0d 09 09 |ppname +| ")")...|
|00002390| 09 6f 70 2e 67 6f 20 28 | 75 70 2c 20 31 29 20 c7 |.op.go (|up, 1) .|
|000023a0| 63 75 72 73 6f 72 20 6f | 6e 20 22 45 64 69 74 20 |cursor o|n "Edit |
|000023b0| 53 68 61 72 65 64 20 4d | 65 6e 75 22 0d 09 09 09 |Shared M|enu"....|
|000023c0| 6c 69 6e 6b 53 63 72 69 | 70 74 20 28 22 65 64 69 |linkScri|pt ("edi|
|000023d0| 74 20 28 40 22 20 2b 20 | 61 64 72 4d 65 6e 75 42 |t (@" + |adrMenuB|
|000023e0| 61 72 20 2b 20 22 29 22 | 29 0d 09 09 09 6f 70 2e |ar + ")"|)....op.|
|000023f0| 66 69 72 73 74 53 75 6d | 6d 69 74 20 28 29 0d 09 |firstSum|mit ()..|
|00002400| 09 09 74 61 72 67 65 74 | 2e 63 6c 65 61 72 20 28 |..target|.clear (|
|00002410| 29 0d 09 09 09 73 6f 6d | 65 74 68 69 6e 67 43 72 |)....som|ethingCr|
|00002420| 65 61 74 65 64 20 3d 20 | 74 72 75 65 0d 09 0d 09 |eated = |true....|
|00002430| 69 66 20 73 6f 6d 65 74 | 68 69 6e 67 43 72 65 61 |if somet|hingCrea|
|00002440| 74 65 64 0d 09 09 66 69 | 6c 65 4d 65 6e 75 2e 73 |ted...fi|leMenu.s|
|00002450| 61 76 65 20 28 29 0d 80 | 00 00 00 00 00 80 00 00 |ave ()..|........|
|00002460| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000024e0| 00 00 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000024f0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00002500| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00002510| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00002520| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00002530| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00002540| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00002550| 00 00 00 80 00 00 00 00 | 00 84 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 84 00 00 | 00 00 00 84 00 00 00 00 |........|........|
|00002570| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00002580| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00002590| 00 00 00 00 00 80 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025b0| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000025c0| 00 00 00 00 00 80 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000025e0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00002600| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000026d0| 00 00 00 0e 69 6d 70 6f | 72 74 41 65 74 65 49 6e |....impo|rtAeteIn|
|000026e0| 66 6f 00 00 00 f7 00 01 | 04 bc 00 02 00 00 00 0c |fo......|........|
|000026f0| 00 00 00 6f 00 00 02 00 | 00 0f 06 47 65 6e 65 76 |...o....|...Genev|
|00002700| 61 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |a.......|........|
|00002710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 09 00 00 |........|........|
|00002720| 00 00 00 00 00 00 00 00 | 06 45 00 00 a6 67 cf a7 |........|.E...g..|
|00002730| a9 17 f5 13 00 00 00 48 | 00 00 00 a0 00 32 01 04 |.......H|.....2..|
|00002740| 02 18 4c 41 4e 44 00 00 | 00 00 00 00 00 00 00 00 |..LAND..|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 6f 6e 20 69 6d 70 | 6f 72 74 41 65 74 65 49 |..on imp|ortAeteI|
|00002770| 6e 66 6f 20 28 29 0d 09 | 72 65 74 75 72 6e 20 28 |nfo ()..|return (|
|00002780| 63 6f 6d 6d 65 72 63 69 | 61 6c 2e 70 61 72 73 65 |commerci|al.parse|
|00002790| 41 65 74 65 20 28 5b 63 | 6f 6d 6d 65 72 63 69 61 |Aete ([c|ommercia|
|000027a0| 6c 2e 61 70 70 6e 61 6d | 65 5d 2e 61 70 70 49 6e |l.appnam|e].appIn|
|000027b0| 66 6f 2e 70 61 74 68 2c | 20 40 5b 63 6f 6d 6d 65 |fo.path,| @[comme|
|000027c0| 72 63 69 61 6c 2e 61 70 | 70 6e 61 6d 65 5d 29 29 |rcial.ap|pname]))|
|000027d0| 0d 80 00 00 00 00 00 80 | 00 00 00 00 00 0b 69 6d |........|......im|
|000027e0| 70 6f 72 74 53 75 69 74 | 65 00 00 00 d7 00 01 04 |portSuit|e.......|
|000027f0| bc 00 02 00 00 00 0c 00 | 00 00 4f 00 00 02 00 00 |........|..O.....|
|00002800| 0f 06 47 65 6e 65 76 61 | 00 00 00 00 00 00 00 00 |..Geneva|........|
|00002810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002820| 00 00 00 00 09 00 00 00 | 00 00 00 00 00 00 00 06 |........|........|
|00002830| 45 00 00 a4 fe 5c 79 a9 | 17 f5 13 00 00 00 2e 00 |E....\y.|........|
|00002840| 00 00 a0 00 56 01 04 01 | 9e 4c 41 4e 44 00 00 00 |....V...|.LAND...|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 6f 6e 20 69 6d 70 6f |........|.on impo|
|00002870| 72 74 53 75 69 74 65 20 | 28 61 64 72 29 0d 09 72 |rtSuite |(adr)..r|
|00002880| 65 74 75 72 6e 20 28 6d | 65 6e 75 2e 69 6d 70 6f |eturn (m|enu.impo|
|00002890| 72 74 53 75 69 74 65 20 | 28 61 64 72 2c 20 22 43 |rtSuite |(adr, "C|
|000028a0| 6f 6d 6d 65 72 63 69 61 | 6c 20 44 65 76 65 6c 6f |ommercia|l Develo|
|000028b0| 70 65 72 73 22 29 29 0d | 80 00 00 00 00 00 80 00 |pers")).|........|
|000028c0| 00 00 00 00 0a 69 6e 73 | 74 61 6c 6c 41 70 70 00 |.....ins|tallApp.|
|000028d0| 00 06 de 00 01 04 bc 00 | 02 00 00 00 e4 00 00 05 |........|........|
|000028e0| 7e 00 00 02 00 00 0f 06 | 47 65 6e 65 76 61 00 00 |~.......|Geneva..|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 00 00 00 00 00 00 00 | 00 00 09 00 00 00 00 00 |........|........|
|00002910| 00 00 00 00 00 06 45 00 | 00 a4 28 b5 78 a9 17 f5 |......E.|..(.x...|
|00002920| 13 00 00 00 64 00 00 00 | 32 00 32 01 d6 02 04 4c |....d...|2.2....L|
|00002930| 41 4e 44 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |AND.....|........|
|00002940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 6f |........|.......o|
|00002950| 6e 20 69 6e 73 74 61 6c | 6c 41 70 70 20 28 70 61 |n instal|lApp (pa|
|00002960| 74 68 29 20 c7 63 6f 70 | 69 65 73 20 72 65 73 6f |th) .cop|ies reso|
|00002970| 75 72 63 65 73 20 66 72 | 6f 6d 20 61 20 46 72 6f |urces fr|om a Fro|
|00002980| 6e 74 69 65 72 20 69 6e | 73 74 61 6c 6c 20 66 69 |ntier in|stall fi|
|00002990| 6c 65 0d 09 74 68 65 72 | 65 20 61 72 65 20 74 77 |le..ther|e are tw|
|000029a0| 6f 20 72 65 61 73 6f 6e | 73 20 77 68 79 20 77 65 |o reason|s why we|
|000029b0| 20 6a 75 73 74 20 63 61 | 6c 6c 20 74 68 65 20 69 | just ca|ll the i|
|000029c0| 6e 73 74 61 6c 6c 65 72 | 20 69 6e 73 74 65 61 64 |nstaller| instead|
|000029d0| 20 6f 66 20 72 65 70 6c | 69 63 61 74 69 6e 67 20 | of repl|icating |
|000029e0| 63 6f 64 65 3a 0d 09 09 | 31 2e 20 69 74 20 61 6c |code:...|1. it al|
|000029f0| 6c 6f 77 73 20 61 20 75 | 73 65 72 20 74 6f 20 63 |lows a u|ser to c|
|00002a00| 75 73 74 6f 6d 69 7a 65 | 20 74 68 65 20 69 6e 73 |ustomize| the ins|
|00002a10| 74 61 6c 6c 61 74 69 6f | 6e 20 70 72 6f 63 65 73 |tallatio|n proces|
|00002a20| 73 0d 09 09 09 63 68 61 | 6e 67 65 20 79 6f 75 72 |s....cha|nge your|
|00002a30| 20 63 6f 70 79 20 6f 66 | 20 63 6f 6d 6d 65 72 63 | copy of| commerc|
|00002a40| 69 61 6c 2e 69 6e 73 74 | 61 6c 6c 65 72 20 74 6f |ial.inst|aller to|
|00002a50| 20 63 68 61 6e 67 65 20 | 74 68 65 20 62 65 68 61 | change |the beha|
|00002a60| 76 69 6f 72 0d 09 09 32 | 2e 20 69 74 20 73 61 76 |vior...2|. it sav|
|00002a70| 65 73 20 73 70 61 63 65 | 20 69 6e 20 74 68 65 20 |es space| in the |
|00002a80| 66 69 6c 65 20 66 6f 72 | 6d 61 74 0d 09 09 09 65 |file for|mat....e|
|00002a90| 76 65 72 79 20 6c 69 74 | 74 6c 65 20 62 69 74 20 |very lit|tle bit |
|00002aa0| 63 6f 75 6e 74 73 21 0d | 09 6c 6f 63 61 6c 20 28 |counts!.|.local (|
|00002ab0| 61 70 70 6e 61 6d 65 2c | 20 61 70 70 63 72 65 61 |appname,| appcrea|
|00002ac0| 74 6f 72 29 0d 09 6c 6f | 63 61 6c 20 28 72 65 73 |tor)..lo|cal (res|
|00002ad0| 64 61 74 61 29 0d 09 0d | 09 46 72 6f 6e 74 69 65 |data)...|.Frontie|
|00002ae0| 72 2e 66 69 6e 64 65 72 | 74 6f 66 72 6f 6e 74 20 |r.finder|tofront |
|00002af0| 3d 20 66 61 6c 73 65 0d | 09 0d 09 62 75 6e 64 6c |= false.|...bundl|
|00002b00| 65 20 c7 67 65 74 20 61 | 70 70 20 6e 61 6d 65 20 |e .get a|pp name |
|00002b10| 61 6e 64 20 63 72 65 61 | 74 6f 72 0d 09 09 72 65 |and crea|tor...re|
|00002b20| 7a 2e 67 65 74 73 74 72 | 69 6e 67 72 65 73 6f 75 |z.getstr|ingresou|
|00002b30| 72 63 65 20 28 70 61 74 | 68 2c 20 31 34 30 2c 20 |rce (pat|h, 140, |
|00002b40| 40 61 70 70 6e 61 6d 65 | 29 0d 09 09 72 65 7a 2e |@appname|)...rez.|
|00002b50| 67 65 74 73 74 72 69 6e | 67 72 65 73 6f 75 72 63 |getstrin|gresourc|
|00002b60| 65 20 28 70 61 74 68 2c | 20 31 34 31 2c 20 40 61 |e (path,| 141, @a|
|00002b70| 70 70 63 72 65 61 74 6f | 72 29 0d 09 0d 09 62 75 |ppcreato|r)....bu|
|00002b80| 6e 64 6c 65 20 c7 6c 6f | 61 64 20 74 68 65 20 61 |ndle .lo|ad the a|
|00002b90| 70 70 27 73 20 74 61 62 | 6c 65 0d 09 09 69 66 20 |pp's tab|le...if |
|00002ba0| 72 65 7a 2e 67 65 74 72 | 65 73 6f 75 72 63 65 20 |rez.getr|esource |
|00002bb0| 28 70 61 74 68 2c 20 74 | 61 62 6c 65 74 79 70 65 |(path, t|abletype|
|00002bc0| 2c 20 31 32 38 2c 20 40 | 72 65 73 64 61 74 61 29 |, 128, @|resdata)|
|00002bd0| 0d 09 09 09 6c 6f 63 61 | 6c 20 28 63 65 6c 6c 6e |....loca|l (celln|
|00002be0| 61 6d 65 20 3d 20 40 73 | 79 73 74 65 6d 2e 76 65 |ame = @s|ystem.ve|
|00002bf0| 72 62 73 2e 61 70 70 73 | 2e 5b 61 70 70 6e 61 6d |rbs.apps|.[appnam|
|00002c00| 65 5d 29 0d 09 09 09 69 | 66 20 6e 6f 74 20 64 69 |e])....i|f not di|
|00002c10| 61 6c 6f 67 2e 61 73 6b | 20 28 22 4e 61 6d 65 20 |alog.ask| ("Name |
|00002c20| 66 6f 72 20 6e 65 77 20 | 73 63 72 69 70 74 73 20 |for new |scripts |
|00002c30| 74 61 62 6c 65 3f 22 2c | 20 40 63 65 6c 6c 6e 61 |table?",| @cellna|
|00002c40| 6d 65 29 0d 09 09 09 09 | 72 65 74 75 72 6e 20 28 |me).....|return (|
|00002c50| 66 61 6c 73 65 29 0d 09 | 09 09 63 65 6c 6c 6e 61 |false)..|..cellna|
|00002c60| 6d 65 20 3d 20 61 64 64 | 72 65 73 73 20 28 63 65 |me = add|ress (ce|
|00002c70| 6c 6c 6e 61 6d 65 29 0d | 09 09 09 69 66 20 64 65 |llname).|...if de|
|00002c80| 66 69 6e 65 64 20 28 63 | 65 6c 6c 6e 61 6d 65 5e |fined (c|ellname^|
|00002c90| 29 0d 09 09 09 09 69 66 | 20 6e 6f 74 20 64 69 61 |).....if| not dia|
|00002ca0| 6c 6f 67 2e 63 6f 6e 66 | 69 72 6d 20 28 22 52 65 |log.conf|irm ("Re|
|00002cb0| 70 6c 61 63 65 20 65 78 | 69 73 74 69 6e 67 20 73 |place ex|isting s|
|00002cc0| 63 72 69 70 74 73 20 74 | 61 62 6c 65 20 6e 61 6d |cripts t|able nam|
|00002cd0| 65 64 20 22 20 2b 20 20 | 63 65 6c 6c 6e 61 6d 65 |ed " + |cellname|
|00002ce0| 20 2b 20 22 3f 22 29 0d | 09 09 09 09 09 72 65 74 | + "?").|.....ret|
|00002cf0| 75 72 6e 20 28 66 61 6c | 73 65 29 0d 09 09 09 75 |urn (fal|se)....u|
|00002d00| 6e 70 61 63 6b 20 28 40 | 72 65 73 64 61 74 61 2c |npack (@|resdata,|
|00002d10| 20 63 65 6c 6c 6e 61 6d | 65 29 0d 09 0d 09 62 75 | cellnam|e)....bu|
|00002d20| 6e 64 6c 65 20 c7 6c 6f | 61 64 20 74 68 65 20 61 |ndle .lo|ad the a|
|00002d30| 70 70 27 73 20 6d 65 6e | 75 62 61 72 0d 09 09 69 |pp's men|ubar...i|
|00002d40| 66 20 72 65 7a 2e 67 65 | 74 72 65 73 6f 75 72 63 |f rez.ge|tresourc|
|00002d50| 65 20 28 70 61 74 68 2c | 20 6d 65 6e 75 62 61 72 |e (path,| menubar|
|00002d60| 74 79 70 65 2c 20 31 32 | 38 2c 20 40 72 65 73 64 |type, 12|8, @resd|
|00002d70| 61 74 61 29 0d 09 09 09 | 6c 6f 63 61 6c 20 28 63 |ata)....|local (c|
|00002d80| 65 6c 6c 6e 61 6d 65 20 | 3d 20 40 73 79 73 74 65 |ellname |= @syste|
|00002d90| 6d 2e 6d 65 6e 75 62 61 | 72 73 2e 5b 61 70 70 63 |m.menuba|rs.[appc|
|00002da0| 72 65 61 74 6f 72 5d 29 | 0d 09 09 09 69 66 20 6e |reator])|....if n|
|00002db0| 6f 74 20 64 69 61 6c 6f | 67 2e 61 73 6b 20 28 22 |ot dialo|g.ask ("|
|00002dc0| 4e 61 6d 65 20 66 6f 72 | 20 6e 65 77 20 73 68 61 |Name for| new sha|
|00002dd0| 72 65 64 20 6d 65 6e 75 | 3f 22 2c 20 40 63 65 6c |red menu|?", @cel|
|00002de0| 6c 6e 61 6d 65 29 0d 09 | 09 09 09 72 65 74 75 72 |lname)..|...retur|
|00002df0| 6e 20 28 66 61 6c 73 65 | 29 0d 09 09 09 63 65 6c |n (false|)....cel|
|00002e00| 6c 6e 61 6d 65 20 3d 20 | 61 64 64 72 65 73 73 20 |lname = |address |
|00002e10| 28 63 65 6c 6c 6e 61 6d | 65 29 0d 09 09 09 69 66 |(cellnam|e)....if|
|00002e20| 20 64 65 66 69 6e 65 64 | 20 28 63 65 6c 6c 6e 61 | defined| (cellna|
|00002e30| 6d 65 5e 29 0d 09 09 09 | 09 69 66 20 6e 6f 74 20 |me^)....|.if not |
|00002e40| 64 69 61 6c 6f 67 2e 63 | 6f 6e 66 69 72 6d 20 28 |dialog.c|onfirm (|
|00002e50| 22 52 65 70 6c 61 63 65 | 20 65 78 69 73 74 69 6e |"Replace| existin|
|00002e60| 67 20 73 68 61 72 65 64 | 20 6d 65 6e 75 20 6e 61 |g shared| menu na|
|00002e70| 6d 65 64 20 22 20 2b 20 | 20 63 65 6c 6c 6e 61 6d |med " + | cellnam|
|00002e80| 65 20 2b 20 22 3f 22 29 | 0d 09 09 09 09 09 72 65 |e + "?")|......re|
|00002e90| 74 75 72 6e 20 28 66 61 | 6c 73 65 29 0d 09 09 09 |turn (fa|lse)....|
|00002ea0| 75 6e 70 61 63 6b 20 28 | 40 72 65 73 64 61 74 61 |unpack (|@resdata|
|00002eb0| 2c 20 63 65 6c 6c 6e 61 | 6d 65 29 0d 09 0d 09 72 |, cellna|me)....r|
|00002ec0| 65 74 75 72 6e 20 28 74 | 72 75 65 29 0d 80 00 00 |eturn (t|rue)....|
|00002ed0| 00 00 00 84 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 80 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00002f00| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00002f10| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00002f20| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00002f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fa0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00002fb0| 00 0b 69 6e 73 74 61 6c | 6c 4d 65 6e 75 00 00 00 |..instal|lMenu...|
|00002fc0| c4 00 01 04 bc 00 02 00 | 00 00 0c 00 00 00 3c 00 |........|......<.|
|00002fd0| 00 02 00 00 0f 06 47 65 | 6e 65 76 61 00 00 00 00 |......Ge|neva....|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 09 00 00 00 00 00 00 00 |........|........|
|00003000| 00 00 00 06 45 00 00 a4 | 3f 59 47 a9 17 f5 14 00 |....E...|?YG.....|
|00003010| 00 00 40 00 00 00 a0 00 | 75 01 04 01 7e 4c 41 4e |..@.....|u...~LAN|
|00003020| 44 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |D.......|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 6f 6e 20 |........|.....on |
|00003040| 69 6e 73 74 61 6c 6c 4d | 65 6e 75 20 28 29 0d 09 |installM|enu ()..|
|00003050| 72 65 74 75 72 6e 20 28 | 6d 65 6e 75 2e 69 6e 73 |return (|menu.ins|
|00003060| 74 61 6c 6c 20 28 40 63 | 6f 6d 6d 65 72 63 69 61 |tall (@c|ommercia|
|00003070| 6c 2e 6d 65 6e 75 29 29 | 0d 80 00 00 00 00 00 80 |l.menu))|........|
|00003080| 00 00 00 00 00 04 6d 65 | 6e 75 00 00 0f 62 00 01 |......me|nu...b..|
|00003090| 05 bc 00 00 02 6c 00 01 | 00 0a 35 6d 00 00 00 00 |.....l..|..5m....|
|000030a0| 00 00 00 e5 00 8c 01 d5 | 02 09 00 00 00 00 00 00 |........|........|
|000030b0| 07 43 68 69 63 61 67 6f | 00 00 00 00 00 00 00 00 |.Chicago|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 0c 00 32 00 4b | 01 7d 01 a8 00 00 00 00 |.....2.K|.}......|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 00 00 00 00 00 02 | 00 00 00 b4 00 00 00 d0 |........|........|
|00003110| 00 00 02 00 00 0f 07 43 | 68 69 63 61 67 6f 00 00 |.......C|hicago..|
|00003120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 00 00 00 00 00 00 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|00003140| 00 00 00 00 06 54 00 00 | a4 97 53 96 ad 24 04 27 |.....T..|..S..$.'|
|00003150| 00 00 02 f6 00 00 00 b1 | 00 b6 01 2e 01 c9 4c 41 |........|......LA|
|00003160| 4e 44 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ND......|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 47 6c |........|......Gl|
|00003180| 75 65 0d 09 41 62 6f 75 | 74 20 74 68 65 20 47 6c |ue..Abou|t the Gl|
|00003190| 75 65 20 4d 65 6e 75 c9 | 0d 09 2d 0d 09 45 6e 74 |ue Menu.|..-..Ent|
|000031a0| 65 72 20 79 6f 75 72 20 | 41 70 70 d5 73 20 4e 61 |er your |App.s Na|
|000031b0| 6d 65 c9 0d 09 4f 70 65 | 6e 20 54 61 62 6c 65 20 |me...Ope|n Table |
|000031c0| 26 20 4d 65 6e 75 0d 09 | 2d 0d 09 45 78 70 6f 72 |& Menu..|-..Expor|
|000031d0| 74 20 49 6e 73 74 61 6c | 6c 20 46 69 6c 65 c9 0d |t Instal|l File..|
|000031e0| 09 2d 0d 09 3d 22 4c 61 | 75 6e 63 68 20 22 20 2b |.-..="La|unch " +|
|000031f0| 20 63 6f 6d 6d 65 72 63 | 69 61 6c 2e 61 70 70 6e | commerc|ial.appn|
|00003200| 61 6d 65 0d 09 2d 0d 09 | 43 6f 6d 70 69 6c 65 20 |ame..-..|Compile |
|00003210| 44 6f 63 53 65 72 76 65 | 72 20 54 65 78 74 0d 09 |DocServe|r Text..|
|00003220| 49 6d 70 6f 72 74 20 27 | 61 65 74 65 27 20 49 6e |Import '|aete' In|
|00003230| 66 6f c9 0d 09 2d 0d 09 | 45 64 69 74 20 4d 65 6e |fo...-..|Edit Men|
|00003240| 75 0d 09 45 64 69 74 20 | 54 61 62 6c 65 0d 80 00 |u..Edit |Table...|
|00003250| 00 00 00 00 80 00 00 00 | 00 0a 00 00 00 0a 28 13 |........|......(.|
|00003260| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 0a |........|........|
|00003270| 31 00 00 0a 29 1f 00 00 | 00 00 80 00 00 00 00 0a |1...)...|........|
|00003280| 32 00 00 0a 29 c4 00 00 | 00 00 80 00 00 00 00 00 |2...)...|........|
|00003290| 80 00 00 00 00 0a 33 00 | 00 0a 2c 50 00 00 00 00 |......3.|..,P....|
|000032a0| 80 00 00 00 00 00 80 00 | 00 00 00 0a 00 00 00 0a |........|........|
|000032b0| 2e ba 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|000032c0| 00 0a 00 00 00 0a 2f 66 | 00 00 00 00 80 00 00 00 |....../f|........|
|000032d0| 00 0a 00 00 00 0a 30 e1 | 00 00 00 00 80 00 00 00 |......0.|........|
|000032e0| 00 00 80 00 00 00 00 0a | 4d 00 00 0a 34 2e 00 00 |........|M...4...|
|000032f0| 00 00 80 00 00 00 00 0a | 54 00 00 0a 34 d0 00 00 |........|T...4...|
|00003300| 00 00 00 02 00 00 00 06 | 00 00 00 82 00 00 02 00 |........|........|
|00003310| 00 0f 06 47 65 6e 65 76 | 61 00 00 00 00 00 00 00 |...Genev|a.......|
|00003320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003330| 00 00 00 00 00 09 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003340| 06 54 00 00 a4 42 40 52 | a9 17 f5 14 00 00 00 1d |.T...B@R|........|
|00003350| 00 00 00 b1 00 b6 01 2e | 01 c9 4c 41 4e 44 00 00 |........|..LAND..|
|00003360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003370| 00 00 00 00 00 00 00 00 | 00 00 64 69 61 6c 6f 67 |........|..dialog|
|00003380| 2e 61 6c 65 72 74 20 28 | 22 54 68 65 73 65 20 63 |.alert (|"These c|
|00003390| 6f 6d 6d 61 6e 64 73 20 | 61 73 73 69 73 74 20 63 |ommands |assist c|
|000033a0| 6f 6d 6d 65 72 63 69 61 | 6c 20 73 6f 66 74 77 61 |ommercia|l softwa|
|000033b0| 72 65 20 64 65 76 65 6c | 6f 70 65 72 73 20 69 6e |re devel|opers in|
|000033c0| 20 63 72 65 61 74 69 6e | 67 20 46 72 6f 6e 74 69 | creatin|g Fronti|
|000033d0| 65 72 20 d2 69 6e 73 74 | 61 6c 6c d3 20 66 69 6c |er .inst|all. fil|
|000033e0| 65 73 20 66 6f 72 20 74 | 68 65 69 72 20 61 70 70 |es for t|heir app|
|000033f0| 6c 69 63 61 74 69 6f 6e | 2e 22 29 0d 80 00 00 00 |lication|.").....|
|00003400| 00 00 00 02 00 00 00 06 | 00 00 00 1b 00 00 02 00 |........|........|
|00003410| 00 0f 06 47 65 6e 65 76 | 61 00 00 00 00 00 00 00 |...Genev|a.......|
|00003420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003430| 00 00 00 00 00 09 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003440| 06 54 00 00 a4 f7 b2 57 | a9 17 f5 14 00 00 00 1e |.T.....W|........|
|00003450| 80 00 00 8c 00 7f 01 54 | 02 00 4c 41 4e 44 00 00 |.......T|..LAND..|
|00003460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003470| 00 00 00 00 00 00 00 00 | 00 00 63 6f 6d 6d 65 72 |........|..commer|
|00003480| 63 69 61 6c 2e 65 6e 74 | 65 72 41 70 70 4e 61 6d |cial.ent|erAppNam|
|00003490| 65 20 28 29 0d 80 00 00 | 00 00 00 00 02 00 00 00 |e ()....|........|
|000034a0| 5a 00 00 01 ae 00 02 02 | 00 00 0f 06 47 65 6e 65 |Z.......|....Gene|
|000034b0| 76 61 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |va......|........|
|000034c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 09 00 |........|........|
|000034d0| 00 00 00 00 02 00 00 00 | 00 06 45 00 00 a4 41 d2 |........|..E...A.|
|000034e0| c3 a9 17 f5 14 00 00 00 | 26 00 00 00 b1 00 b6 01 |........|&.......|
|000034f0| 2e 01 c9 4c 41 4e 44 00 | 00 00 00 00 00 00 00 00 |...LAND.|........|
|00003500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003510| 00 00 00 6c 6f 63 61 6c | 20 28 61 64 72 54 61 62 |...local| (adrTab|
|00003520| 6c 65 20 3d 20 40 73 79 | 73 74 65 6d 2e 76 65 72 |le = @sy|stem.ver|
|00003530| 62 73 2e 61 70 70 73 2e | 5b 63 6f 6d 6d 65 72 63 |bs.apps.|[commerc|
|00003540| 69 61 6c 2e 61 70 70 6e | 61 6d 65 5d 29 0d 69 66 |ial.appn|ame]).if|
|00003550| 20 6e 6f 74 20 64 65 66 | 69 6e 65 64 20 28 61 64 | not def|ined (ad|
|00003560| 72 54 61 62 6c 65 5e 29 | 0d 09 73 63 72 69 70 74 |rTable^)|..script|
|00003570| 45 72 72 6f 72 20 28 22 | 55 73 65 20 74 68 65 20 |Error ("|Use the |
|00003580| 45 6e 74 65 72 20 79 6f | 75 72 20 41 70 70 27 73 |Enter yo|ur App's|
|00003590| 20 4e 61 6d 65 20 63 6f | 6d 6d 61 6e 64 20 66 69 | Name co|mmand fi|
|000035a0| 72 73 74 2e 22 29 0d 0d | 65 64 69 74 20 28 61 64 |rst.")..|edit (ad|
|000035b0| 72 54 61 62 6c 65 29 0d | 0d 69 66 20 61 64 72 54 |rTable).|.if adrT|
|000035c0| 61 62 6c 65 5e 2e 61 70 | 70 49 6e 66 6f 2e 73 68 |able^.ap|pInfo.sh|
|000035d0| 61 72 65 64 4d 65 6e 75 | 73 0d 09 6c 6f 63 61 6c |aredMenu|s..local|
|000035e0| 20 28 69 64 20 3d 20 61 | 64 72 54 61 62 6c 65 5e | (id = a|drTable^|
|000035f0| 2e 61 70 70 49 6e 66 6f | 2e 69 64 29 0d 09 6c 6f |.appInfo|.id)..lo|
|00003600| 63 61 6c 20 28 61 64 72 | 20 3d 20 40 73 79 73 74 |cal (adr| = @syst|
|00003610| 65 6d 2e 6d 65 6e 75 62 | 61 72 73 2e 5b 69 64 5d |em.menub|ars.[id]|
|00003620| 29 0d 09 69 66 20 64 65 | 66 69 6e 65 64 20 28 61 |)..if de|fined (a|
|00003630| 64 72 5e 29 0d 09 09 65 | 64 69 74 20 28 61 64 72 |dr^)...e|dit (adr|
|00003640| 29 0d 09 65 6c 73 65 0d | 09 09 69 66 20 64 69 61 |)..else.|..if dia|
|00003650| 6c 6f 67 2e 63 6f 6e 66 | 69 72 6d 20 28 22 43 72 |log.conf|irm ("Cr|
|00003660| 65 61 74 65 20 61 20 6e | 65 77 20 73 68 61 72 65 |eate a n|ew share|
|00003670| 64 20 6d 65 6e 75 20 66 | 6f 72 20 22 20 2b 20 63 |d menu f|or " + c|
|00003680| 6f 6d 6d 65 72 63 69 61 | 6c 2e 61 70 70 6e 61 6d |ommercia|l.appnam|
|00003690| 65 20 2b 20 22 3f 22 29 | 0d 09 09 09 6e 65 77 20 |e + "?")|....new |
|000036a0| 28 6d 65 6e 75 62 61 72 | 54 79 70 65 2c 20 61 64 |(menubar|Type, ad|
|000036b0| 72 29 0d 09 09 09 65 64 | 69 74 20 28 61 64 72 29 |r)....ed|it (adr)|
|000036c0| 0d 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000036d0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000036e0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000036f0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00003700| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00003710| 00 00 00 00 00 80 00 00 | 00 00 00 00 02 00 00 00 |........|........|
|00003720| 36 00 00 01 b0 00 08 02 | 00 00 0f 06 47 65 6e 65 |6.......|....Gene|
|00003730| 76 61 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |va......|........|
|00003740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 09 00 |........|........|
|00003750| 00 00 00 00 00 00 00 00 | 00 06 54 00 00 a4 0c 11 |........|..T.....|
|00003760| 37 a9 17 f5 14 00 00 00 | 47 80 00 00 b1 00 b6 01 |7.......|G.......|
|00003770| 2e 01 c9 4c 41 4e 44 00 | 00 00 00 00 00 00 00 00 |...LAND.|........|
|00003780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003790| 00 00 00 69 66 20 64 69 | 61 6c 6f 67 2e 79 65 73 |...if di|alog.yes|
|000037a0| 4e 6f 20 28 22 43 72 65 | 61 74 65 20 61 20 46 72 |No ("Cre|ate a Fr|
|000037b0| 6f 6e 74 69 65 72 20 49 | 6e 73 74 61 6c 6c 20 66 |ontier I|nstall f|
|000037c0| 69 6c 65 20 66 6f 72 20 | d2 22 20 2b 20 63 6f 6d |ile for |." + com|
|000037d0| 6d 65 72 63 69 61 6c 2e | 61 70 70 6e 61 6d 65 20 |mercial.|appname |
|000037e0| 2b 20 22 d3 3f 22 29 0d | 09 6c 6f 63 61 6c 20 28 |+ ".?").|.local (|
|000037f0| 69 6e 66 6f 74 61 62 6c | 65 20 3d 20 40 73 79 73 |infotabl|e = @sys|
|00003800| 74 65 6d 2e 76 65 72 62 | 73 2e 61 70 70 73 2e 5b |tem.verb|s.apps.[|
|00003810| 63 6f 6d 6d 65 72 63 69 | 61 6c 2e 61 70 70 6e 61 |commerci|al.appna|
|00003820| 6d 65 5d 2e 61 70 70 49 | 6e 66 6f 29 0d 09 0d 09 |me].appI|nfo)....|
|00003830| 6c 6f 63 61 6c 20 28 66 | 6e 61 6d 65 20 3d 20 63 |local (f|name = c|
|00003840| 6f 6d 6d 65 72 63 69 61 | 6c 2e 61 70 70 6e 61 6d |ommercia|l.appnam|
|00003850| 65 20 2b 20 22 2e 46 72 | 6f 6e 74 69 65 72 22 29 |e + ".Fr|ontier")|
|00003860| 0d 09 69 66 20 66 69 6c | 65 2e 65 78 69 73 74 73 |..if fil|e.exists|
|00003870| 20 28 69 6e 66 6f 74 61 | 62 6c 65 5e 2e 70 61 74 | (infota|ble^.pat|
|00003880| 68 29 0d 09 09 66 6e 61 | 6d 65 20 3d 20 66 69 6c |h)...fna|me = fil|
|00003890| 65 2e 66 6f 6c 64 65 72 | 46 72 6f 6d 50 61 74 68 |e.folder|FromPath|
|000038a0| 20 28 69 6e 66 6f 74 61 | 62 6c 65 5e 2e 70 61 74 | (infota|ble^.pat|
|000038b0| 68 29 20 2b 20 66 6e 61 | 6d 65 0d 09 0d 09 69 66 |h) + fna|me....if|
|000038c0| 20 66 69 6c 65 2e 70 75 | 74 46 69 6c 65 44 69 61 | file.pu|tFileDia|
|000038d0| 6c 6f 67 20 28 22 53 61 | 76 65 20 49 6e 73 74 61 |log ("Sa|ve Insta|
|000038e0| 6c 6c 20 66 69 6c 65 20 | 77 68 65 72 65 3f 22 2c |ll file |where?",|
|000038f0| 20 40 66 6e 61 6d 65 29 | 0d 09 09 63 6f 6d 6d 65 | @fname)|...comme|
|00003900| 72 63 69 61 6c 2e 63 72 | 65 61 74 65 69 6e 73 74 |rcial.cr|eateinst|
|00003910| 61 6c 6c 66 69 6c 65 20 | 28 63 6f 6d 6d 65 72 63 |allfile |(commerc|
|00003920| 69 61 6c 2e 61 70 70 6e | 61 6d 65 2c 20 69 6e 66 |ial.appn|ame, inf|
|00003930| 6f 74 61 62 6c 65 5e 2e | 69 64 2c 20 66 6e 61 6d |otable^.|id, fnam|
|00003940| 65 29 0d 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |e)......|........|
|00003950| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00003960| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00003970| 00 00 00 80 00 00 00 00 | 00 00 02 00 00 00 06 00 |........|........|
|00003980| 00 00 22 00 00 02 00 00 | 0f 06 47 65 6e 65 76 61 |..".....|..Geneva|
|00003990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|000039b0| 00 00 00 00 00 00 00 06 | 78 00 00 a5 28 c8 2a a9 |........|x...(.*.|
|000039c0| 17 f5 14 00 00 00 15 00 | 00 00 96 00 7f 01 5e 02 |........|......^.|
|000039d0| 00 4c 41 4e 44 00 00 00 | 00 00 00 00 00 00 00 00 |.LAND...|........|
|000039e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039f0| 00 61 70 70 2e 73 74 61 | 72 74 20 28 40 5b 63 6f |.app.sta|rt (@[co|
|00003a00| 6d 6d 65 72 63 69 61 6c | 2e 61 70 70 6e 61 6d 65 |mmercial|.appname|
|00003a10| 5d 29 0d 80 00 00 00 00 | 00 00 02 00 00 00 30 00 |])......|......0.|
|00003a20| 00 00 c7 00 07 02 00 00 | 0f 06 47 65 6e 65 76 61 |........|..Geneva|
|00003a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|00003a50| 00 00 00 00 00 00 00 06 | 54 00 00 a5 ee 62 34 a9 |........|T....b4.|
|00003a60| 17 f5 14 00 00 00 15 00 | 00 01 59 01 7f 02 21 03 |........|..Y...!.|
|00003a70| 00 4c 41 4e 44 00 00 00 | 00 00 00 00 00 00 00 00 |.LAND...|........|
|00003a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a90| 00 6f 6e 20 65 72 72 6f | 72 20 28 29 0d 09 73 63 |.on erro|r ()..sc|
|00003aa0| 72 69 70 74 45 72 72 6f | 72 20 28 22 46 72 6f 6e |riptErro|r ("Fron|
|00003ab0| 74 6d 6f 73 74 20 77 69 | 6e 64 6f 77 20 6d 75 73 |tmost wi|ndow mus|
|00003ac0| 74 20 63 6f 6e 74 61 69 | 6e 20 61 6e 20 6f 75 74 |t contai|n an out|
|00003ad0| 6c 69 6e 65 2e 22 29 0d | 61 64 72 20 3d 20 77 69 |line.").|adr = wi|
|00003ae0| 6e 64 6f 77 2e 66 72 6f | 6e 74 6d 6f 73 74 20 28 |ndow.fro|ntmost (|
|00003af0| 29 0d 69 66 20 6e 6f 74 | 20 64 65 66 69 6e 65 64 |).if not| defined|
|00003b00| 20 28 61 64 72 5e 29 0d | 09 65 72 72 6f 72 20 28 | (adr^).|.error (|
|00003b10| 29 0d 69 66 20 74 79 70 | 65 4f 66 20 28 61 64 72 |).if typ|eOf (adr|
|00003b20| 5e 29 20 ad 20 6f 75 74 | 6c 69 6e 65 54 79 70 65 |^) . out|lineType|
|00003b30| 0d 09 65 72 72 6f 72 20 | 28 29 0d 63 6f 6d 6d 65 |..error |().comme|
|00003b40| 72 63 69 61 6c 2e 63 6f | 6d 70 69 6c 65 44 6f 63 |rcial.co|mpileDoc|
|00003b50| 73 20 28 61 64 72 29 0d | 80 00 00 00 00 00 80 00 |s (adr).|........|
|00003b60| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00003b70| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00003b80| 00 00 80 00 00 00 00 00 | 00 02 00 00 00 48 00 00 |........|.....H..|
|00003b90| 02 81 00 00 02 00 00 0f | 06 47 65 6e 65 76 61 00 |........|.Geneva.|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 00 00 00 00 00 00 | 00 00 00 09 00 00 00 00 |........|........|
|00003bc0| 00 00 00 00 00 00 06 54 | 00 00 a4 0c 11 37 a9 17 |.......T|.....7..|
|00003bd0| f5 14 00 00 00 4b 00 00 | 00 b1 00 b6 01 2e 01 c9 |.....K..|........|
|00003be0| 4c 41 4e 44 00 00 00 00 | 00 00 00 00 00 00 00 00 |LAND....|........|
|00003bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c00| 6c 6f 63 61 6c 20 28 69 | 6e 66 6f 74 61 62 6c 65 |local (i|nfotable|
|00003c10| 20 3d 20 40 73 79 73 74 | 65 6d 2e 76 65 72 62 73 | = @syst|em.verbs|
|00003c20| 2e 61 70 70 73 2e 5b 63 | 6f 6d 6d 65 72 63 69 61 |.apps.[c|ommercia|
|00003c30| 6c 2e 61 70 70 6e 61 6d | 65 5d 2e 61 70 70 49 6e |l.appnam|e].appIn|
|00003c40| 66 6f 29 0d 69 66 20 6e | 6f 74 20 66 69 6c 65 2e |fo).if n|ot file.|
|00003c50| 65 78 69 73 74 73 20 28 | 69 6e 66 6f 74 61 62 6c |exists (|infotabl|
|00003c60| 65 5e 2e 70 61 74 68 29 | 0d 09 69 6e 66 6f 74 61 |e^.path)|..infota|
|00003c70| 62 6c 65 5e 2e 70 61 74 | 68 20 3d 20 66 69 6c 65 |ble^.pat|h = file|
|00003c80| 2e 66 69 6e 64 41 70 70 | 6c 69 63 61 74 69 6f 6e |.findApp|lication|
|00003c90| 20 28 69 6e 66 6f 74 61 | 62 6c 65 5e 2e 69 64 29 | (infota|ble^.id)|
|00003ca0| 0d 09 69 66 20 6e 6f 74 | 20 66 69 6c 65 2e 67 65 |..if not| file.ge|
|00003cb0| 74 46 69 6c 65 44 69 61 | 6c 6f 67 20 28 22 57 68 |tFileDia|log ("Wh|
|00003cc0| 65 72 65 20 69 73 20 22 | 20 2b 20 63 6f 6d 6d 65 |ere is "| + comme|
|00003cd0| 72 63 69 61 6c 2e 61 70 | 70 6e 61 6d 65 20 2b 20 |rcial.ap|pname + |
|00003ce0| 22 3f 22 2c 20 40 69 6e | 66 6f 74 61 62 6c 65 5e |"?", @in|fotable^|
|00003cf0| 2e 70 61 74 68 2c 20 27 | 41 50 50 4c 27 29 0d 09 |.path, '|APPL')..|
|00003d00| 09 72 65 74 75 72 6e 20 | 28 66 61 6c 73 65 29 0d |.return |(false).|
|00003d10| 09 69 6e 66 6f 74 61 62 | 6c 65 5e 2e 69 64 20 3d |.infotab|le^.id =|
|00003d20| 20 66 69 6c 65 2e 63 72 | 65 61 74 6f 72 20 28 69 | file.cr|eator (i|
|00003d30| 6e 66 6f 74 61 62 6c 65 | 5e 2e 70 61 74 68 29 20 |nfotable|^.path) |
|00003d40| c7 6b 65 65 70 20 69 6e | 20 73 79 6e 63 0d 69 66 |.keep in| sync.if|
|00003d50| 20 72 65 7a 2e 63 6f 75 | 6e 74 52 65 73 6f 75 72 | rez.cou|ntResour|
|00003d60| 63 65 73 20 28 69 6e 66 | 6f 74 61 62 6c 65 5e 2e |ces (inf|otable^.|
|00003d70| 70 61 74 68 2c 20 27 61 | 65 74 65 27 29 20 3d 3d |path, 'a|ete') ==|
|00003d80| 20 30 0d 09 64 69 61 6c | 6f 67 2e 61 6c 65 72 74 | 0..dial|og.alert|
|00003d90| 20 28 63 6f 6d 6d 65 72 | 63 69 61 6c 2e 61 70 70 | (commer|cial.app|
|00003da0| 6e 61 6d 65 20 2b 20 22 | 20 64 6f 65 73 6e d5 74 |name + "| doesn.t|
|00003db0| 20 63 6f 6e 74 61 69 6e | 20 61 6e 20 27 61 65 74 | contain| an 'aet|
|00003dc0| 65 27 20 72 65 73 6f 75 | 72 63 65 2e 22 29 0d 09 |e' resou|rce.")..|
|00003dd0| 72 65 74 75 72 6e 20 28 | 66 61 6c 73 65 29 0d 69 |return (|false).i|
|00003de0| 66 20 6e 6f 74 20 64 69 | 61 6c 6f 67 2e 63 6f 6e |f not di|alog.con|
|00003df0| 66 69 72 6d 20 28 22 49 | 6d 70 6f 72 74 20 67 6c |firm ("I|mport gl|
|00003e00| 75 65 20 73 63 72 69 70 | 74 73 20 61 6e 64 20 76 |ue scrip|ts and v|
|00003e10| 61 6c 75 65 73 20 66 72 | 6f 6d 20 22 20 2b 20 63 |alues fr|om " + c|
|00003e20| 6f 6d 6d 65 72 63 69 61 | 6c 2e 61 70 70 6e 61 6d |ommercia|l.appnam|
|00003e30| 65 20 2b 20 22 d5 73 20 | 27 61 65 74 65 27 20 72 |e + ".s |'aete' r|
|00003e40| 65 73 6f 75 72 63 65 3f | 22 29 0d 09 72 65 74 75 |esource?|")..retu|
|00003e50| 72 6e 20 28 66 61 6c 73 | 65 29 0d 72 65 74 75 72 |rn (fals|e).retur|
|00003e60| 6e 20 28 63 6f 6d 6d 65 | 72 63 69 61 6c 2e 69 6d |n (comme|rcial.im|
|00003e70| 70 6f 72 74 41 65 74 65 | 49 6e 66 6f 20 28 29 29 |portAete|Info ())|
|00003e80| 0d 80 00 00 00 00 00 80 | 00 00 00 00 00 00 00 00 |........|........|
|00003e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ea0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00003eb0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00003ec0| 00 00 00 80 00 00 00 00 | 00 00 02 00 00 00 06 00 |........|........|
|00003ed0| 00 00 18 00 00 02 00 00 | 0f 06 47 65 6e 65 76 61 |........|..Geneva|
|00003ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|00003f00| 00 00 00 00 00 00 00 06 | 78 00 00 a4 97 56 57 a9 |........|x....VW.|
|00003f10| 17 f5 14 00 00 00 17 00 | 00 00 b1 00 b6 01 2e 01 |........|........|
|00003f20| c9 4c 41 4e 44 00 00 00 | 00 00 00 00 00 00 00 00 |.LAND...|........|
|00003f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f40| 00 65 64 69 74 20 28 40 | 63 6f 6d 6d 65 72 63 69 |.edit (@|commerci|
|00003f50| 61 6c 2e 6d 65 6e 75 29 | 0d 80 00 00 00 00 00 00 |al.menu)|........|
|00003f60| 02 00 00 00 06 00 00 00 | 13 00 00 02 00 00 0f 06 |........|........|
|00003f70| 47 65 6e 65 76 61 00 00 | 00 00 00 00 00 00 00 00 |Geneva..|........|
|00003f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f90| 00 00 09 00 00 00 00 00 | 00 00 00 00 00 06 78 00 |........|......x.|
|00003fa0| 00 a4 97 56 68 a9 17 f5 | 14 00 00 00 16 00 00 00 |...Vh...|........|
|00003fb0| b1 00 b6 01 2e 01 c9 4c | 41 4e 44 00 00 00 00 00 |.......L|AND.....|
|00003fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fd0| 00 00 00 00 00 00 00 65 | 64 69 74 20 28 40 63 6f |.......e|dit (@co|
|00003fe0| 6d 6d 65 72 63 69 61 6c | 29 0d 80 00 00 00 00 00 |mmercial|).......|
|00003ff0| 0a 6e 65 77 4d 65 6e 75 | 62 61 72 00 00 03 0b 00 |.newMenu|bar.....|
|00004000| 01 05 bc 00 00 01 c9 00 | 01 00 0a 39 37 00 00 00 |........|...97...|
|00004010| 00 00 00 01 68 01 64 02 | 12 03 1c 00 00 00 00 00 |....h.d.|........|
|00004020| 00 07 43 68 69 63 61 67 | 6f 00 00 00 00 00 00 00 |..Chicag|o.......|
|00004030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004040| 00 00 00 00 0c 00 65 00 | 69 01 3e 01 8a 00 00 00 |......e.|i.>.....|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 02 00 00 00 5e 00 00 00 |........|....^...|
|00004080| 83 00 00 02 00 00 0f 07 | 43 68 69 63 61 67 6f 00 |........|Chicago.|
|00004090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040a0| 00 00 00 00 00 00 00 00 | 00 00 0c 00 00 00 00 00 |........|........|
|000040b0| 00 00 00 00 00 06 54 00 | 00 a6 bc fe ae ad 24 04 |......T.|......$.|
|000040c0| 27 00 00 00 6b 00 00 01 | 59 01 7f 02 21 03 00 4c |'...k...|Y...!..L|
|000040d0| 41 4e 44 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |AND.....|........|
|000040e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 53 |........|.......S|
|000040f0| 63 72 69 70 74 73 0d 09 | 41 62 6f 75 74 20 74 68 |cripts..|About th|
|00004100| 65 20 53 63 72 69 70 74 | 73 20 4d 65 6e 75 c9 0d |e Script|s Menu..|
|00004110| 09 2d 0d 09 53 61 6d 70 | 6c 65 20 53 63 72 69 70 |.-..Samp|le Scrip|
|00004120| 74 20 23 31 0d 09 53 61 | 6d 70 6c 65 20 53 63 72 |t #1..Sa|mple Scr|
|00004130| 69 70 74 20 23 32 0d 09 | 53 61 6d 70 6c 65 20 53 |ipt #2..|Sample S|
|00004140| 63 72 69 70 74 20 23 33 | 0d 09 2d 0d 09 45 64 69 |cript #3|..-..Edi|
|00004150| 74 20 53 68 61 72 65 64 | 20 4d 65 6e 75 0d 09 45 |t Shared| Menu..E|
|00004160| 64 69 74 20 53 63 72 69 | 70 74 73 20 54 61 62 6c |dit Scri|pts Tabl|
|00004170| 65 0d 80 00 00 00 00 00 | 80 00 00 00 00 0a 00 00 |e.......|........|
|00004180| 00 0a 37 f1 00 00 00 00 | 80 00 00 00 00 00 80 00 |..7.....|........|
|00004190| 00 00 00 0a 00 00 00 00 | 00 00 00 00 00 00 80 00 |........|........|
|000041a0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000041b0| 80 00 00 00 00 0a 4d 00 | 00 00 00 00 00 00 00 00 |......M.|........|
|000041c0| 80 00 00 00 00 0a 54 00 | 00 00 00 00 00 00 00 00 |......T.|........|
|000041d0| 00 02 00 00 00 18 00 00 | 00 aa 00 01 02 00 00 0f |........|........|
|000041e0| 06 47 65 6e 65 76 61 00 | 00 00 00 00 00 00 00 00 |.Geneva.|........|
|000041f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004200| 00 00 00 09 00 00 00 00 | 00 00 00 00 00 00 06 54 |........|.......T|
|00004210| 00 00 a6 bc ff 1f a9 17 | f5 14 00 00 00 12 00 00 |........|........|
|00004220| 01 59 01 7f 02 21 03 00 | 4c 41 4e 44 00 00 00 00 |.Y...!..|LAND....|
|00004230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004240| 00 00 00 00 00 00 00 00 | 6c 6f 63 61 6c 20 28 61 |........|local (a|
|00004250| 70 70 6e 61 6d 65 20 3d | 20 73 79 73 2e 66 72 6f |ppname =| sys.fro|
|00004260| 6e 74 6d 6f 73 74 41 70 | 70 20 28 29 29 0d 46 72 |ntmostAp|p ()).Fr|
|00004270| 6f 6e 74 69 65 72 2e 62 | 72 69 6e 67 54 6f 46 72 |ontier.b|ringToFr|
|00004280| 6f 6e 74 20 28 29 0d 64 | 69 61 6c 6f 67 2e 6e 6f |ont ().d|ialog.no|
|00004290| 74 69 66 79 20 28 22 54 | 68 69 73 20 6d 65 6e 75 |tify ("T|his menu|
|000042a0| 20 63 6f 6e 74 61 69 6e | 73 20 73 63 72 69 70 74 | contain|s script|
|000042b0| 73 20 77 72 69 74 74 65 | 6e 20 77 69 74 68 20 55 |s writte|n with U|
|000042c0| 73 65 72 4c 61 6e 64 20 | 46 72 6f 6e 74 69 65 72 |serLand |Frontier|
|000042d0| 2e 22 29 0d 73 79 73 2e | 62 72 69 6e 67 41 70 70 |.").sys.|bringApp|
|000042e0| 54 6f 46 72 6f 6e 74 20 | 28 61 70 70 6e 61 6d 65 |ToFront |(appname|
|000042f0| 29 0d 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |).......|........|
|00004300| 00 00 00 00 80 00 00 00 | 00 00 08 6e 65 77 54 61 |........|...newTa|
|00004310| 62 6c 65 00 00 06 0e 00 | 01 03 bc 00 00 05 7e 00 |ble.....|......~.|
|00004320| 00 00 3c 00 00 00 00 0d | 01 00 00 00 0d 00 00 01 |..<.....|........|
|00004330| 10 0d 01 00 00 01 17 00 | 00 01 df 0d 01 00 00 01 |........|........|
|00004340| e9 00 00 02 ac 0d 01 00 | 00 02 b9 00 00 03 8e 0d |........|........|
|00004350| 01 00 00 03 9c 00 00 04 | 73 0d 01 00 00 04 78 0c |........|s.....x.|
|00004360| 62 72 69 6e 67 54 6f 46 | 72 6f 6e 74 00 00 00 ff |bringToF|ront....|
|00004370| 00 01 04 84 00 02 00 00 | 00 18 00 00 00 6b 00 00 |........|.....k..|
|00004380| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00004390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043a0| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|000043b0| 00 00 06 45 00 00 a8 61 | fe 41 a9 17 f5 14 00 00 |...E...a|.A......|
|000043c0| 00 09 00 00 00 9d 00 51 | 01 06 01 a2 4c 41 4e 44 |.......Q|....LAND|
|000043d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 62 |........|....on b|
|000043f0| 72 69 6e 67 54 6f 46 72 | 6f 6e 74 20 28 29 0d 09 |ringToFr|ont ()..|
|00004400| 69 66 20 6e 6f 74 20 61 | 70 70 2e 73 74 61 72 74 |if not a|pp.start|
|00004410| 20 28 22 53 61 6d 70 6c | 65 22 29 0d 09 09 72 65 | ("Sampl|e")...re|
|00004420| 74 75 72 6e 20 28 66 61 | 6c 73 65 29 0d 09 72 65 |turn (fa|lse)..re|
|00004430| 74 75 72 6e 20 28 73 79 | 73 2e 62 72 69 6e 67 41 |turn (sy|s.bringA|
|00004440| 70 70 54 6f 46 72 6f 6e | 74 20 28 53 61 6d 70 6c |ppToFron|t (Sampl|
|00004450| 65 2e 69 64 29 29 0d 80 | 00 00 00 00 00 80 00 00 |e.id))..|........|
|00004460| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 06 |........|........|
|00004470| 6c 61 75 6e 63 68 00 00 | 00 c4 00 01 04 84 00 02 |launch..|........|
|00004480| 00 00 00 0c 00 00 00 3c | 00 00 02 00 00 0f 06 47 |.......<|.......G|
|00004490| 65 6e 65 76 61 00 00 00 | 00 00 00 00 00 00 00 00 |eneva...|........|
|000044a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044b0| 00 09 00 00 00 00 00 00 | 00 00 00 00 06 45 00 00 |........|.....E..|
|000044c0| a8 61 fe f0 a9 17 f5 14 | 00 00 00 09 00 00 00 a0 |.a......|........|
|000044d0| 00 65 01 04 01 8e 4c 41 | 4e 44 00 00 00 00 00 00 |.e....LA|ND......|
|000044e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044f0| 00 00 00 00 00 00 6f 6e | 20 6c 61 75 6e 63 68 20 |......on| launch |
|00004500| 28 29 0d 09 72 65 74 75 | 72 6e 20 28 61 70 70 2e |()..retu|rn (app.|
|00004510| 73 74 61 72 74 57 69 74 | 68 44 6f 63 75 6d 65 6e |startWit|hDocumen|
|00004520| 74 20 28 22 53 61 6d 70 | 6c 65 22 2c 20 22 22 29 |t ("Samp|le", "")|
|00004530| 29 0d 80 00 00 00 00 00 | 80 00 00 00 00 00 09 69 |).......|.......i|
|00004540| 73 52 75 6e 6e 69 6e 67 | 00 00 00 bf 00 01 04 84 |sRunning|........|
|00004550| 00 02 00 00 00 0c 00 00 | 00 37 00 00 02 00 00 0f |........|.7......|
|00004560| 06 47 65 6e 65 76 61 00 | 00 00 00 00 00 00 00 00 |.Geneva.|........|
|00004570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004580| 00 00 00 09 00 00 00 00 | 00 00 00 00 00 00 06 54 |........|.......T|
|00004590| 00 00 a8 61 fe f0 ac 60 | a8 c1 00 00 00 0a 00 00 |...a...`|........|
|000045a0| 00 e1 00 e8 01 45 02 11 | 4c 41 4e 44 00 00 00 00 |.....E..|LAND....|
|000045b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045c0| 00 00 00 00 00 00 00 00 | 6f 6e 20 69 73 52 75 6e |........|on isRun|
|000045d0| 6e 69 6e 67 20 28 29 0d | 09 72 65 74 75 72 6e 20 |ning ().|.return |
|000045e0| 28 73 79 73 2e 61 70 70 | 49 73 52 75 6e 6e 69 6e |(sys.app|IsRunnin|
|000045f0| 67 20 28 53 61 6d 70 6c | 65 2e 69 64 29 29 0d 80 |g (Sampl|e.id))..|
|00004600| 00 00 00 00 00 80 00 00 | 00 00 00 0c 6f 70 65 6e |........|....open|
|00004610| 44 6f 63 75 6d 65 6e 74 | 00 00 00 d1 00 01 04 84 |Document|........|
|00004620| 00 02 00 00 00 0c 00 00 | 00 49 00 00 02 00 00 0f |........|.I......|
|00004630| 06 47 65 6e 65 76 61 00 | 00 00 00 00 00 00 00 00 |.Geneva.|........|
|00004640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004650| 00 00 00 09 00 00 00 00 | 00 00 00 00 00 00 06 45 |........|.......E|
|00004660| 00 00 a7 0a ef 63 a9 17 | f5 14 00 00 00 0c 00 00 |.....c..|........|
|00004670| 00 a0 00 4a 01 04 01 a9 | 4c 41 4e 44 00 00 00 00 |...J....|LAND....|
|00004680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004690| 00 00 00 00 00 00 00 00 | 6f 6e 20 6f 70 65 6e 44 |........|on openD|
|000046a0| 6f 63 75 6d 65 6e 74 20 | 28 66 69 6c 65 29 0d 09 |ocument |(file)..|
|000046b0| 72 65 74 75 72 6e 20 28 | 72 65 71 75 69 72 65 64 |return (|required|
|000046c0| 2e 6f 70 65 6e 44 6f 63 | 75 6d 65 6e 74 20 28 53 |.openDoc|ument (S|
|000046d0| 61 6d 70 6c 65 2e 69 64 | 2c 20 66 69 6c 65 29 29 |ample.id|, file))|
|000046e0| 0d 80 00 00 00 00 00 80 | 00 00 00 00 00 0d 70 72 |........|......pr|
|000046f0| 69 6e 74 44 6f 63 75 6d | 65 6e 74 00 00 00 d3 00 |intDocum|ent.....|
|00004700| 01 04 84 00 02 00 00 00 | 0c 00 00 00 4b 00 00 02 |........|....K...|
|00004710| 00 00 0f 06 47 65 6e 65 | 76 61 00 00 00 00 00 00 |....Gene|va......|
|00004720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004730| 00 00 00 00 00 00 09 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004740| 00 06 45 00 00 a7 0a ef | 63 a9 17 f5 14 00 00 00 |..E.....|c.......|
|00004750| 0c 00 00 00 a0 00 4a 01 | 04 01 a9 4c 41 4e 44 00 |......J.|...LAND.|
|00004760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004770| 00 00 00 00 00 00 00 00 | 00 00 00 6f 6e 20 70 72 |........|...on pr|
|00004780| 69 6e 74 44 6f 63 75 6d | 65 6e 74 20 28 66 69 6c |intDocum|ent (fil|
|00004790| 65 29 0d 09 72 65 74 75 | 72 6e 20 28 72 65 71 75 |e)..retu|rn (requ|
|000047a0| 69 72 65 64 2e 70 72 69 | 6e 74 44 6f 63 75 6d 65 |ired.pri|ntDocume|
|000047b0| 6e 74 20 28 53 61 6d 70 | 6c 65 2e 69 64 2c 20 66 |nt (Samp|le.id, f|
|000047c0| 69 6c 65 29 29 0d 80 00 | 00 00 00 00 80 00 00 00 |ile))...|........|
|000047d0| 00 00 04 71 75 69 74 00 | 00 00 c2 00 01 04 84 00 |...quit.|........|
|000047e0| 02 00 00 00 0c 00 00 00 | 3a 00 00 02 00 00 0f 06 |........|:.......|
|000047f0| 47 65 6e 65 76 61 00 00 | 00 00 00 00 00 00 00 00 |Geneva..|........|
|00004800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004810| 00 00 09 00 00 00 00 00 | 00 00 00 00 00 06 45 00 |........|......E.|
|00004820| 00 a5 9f 23 c6 a9 17 f5 | 15 00 00 00 16 00 00 00 |...#....|........|
|00004830| a0 00 6e 01 04 01 86 4c | 41 4e 44 00 00 00 00 00 |..n....L|AND.....|
|00004840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004850| 00 00 00 00 00 00 00 6f | 6e 20 71 75 69 74 20 28 |.......o|n quit (|
|00004860| 29 0d 09 72 65 74 75 72 | 6e 20 28 72 65 71 75 69 |)..retur|n (requi|
|00004870| 72 65 64 2e 71 75 69 74 | 41 70 70 6c 69 63 61 74 |red.quit|Applicat|
|00004880| 69 6f 6e 20 28 53 61 6d | 70 6c 65 2e 69 64 29 29 |ion (Sam|ple.id))|
|00004890| 0d 80 00 00 00 00 00 80 | 00 00 00 00 00 00 01 00 |........|........|
|000048a0| 02 00 00 00 06 00 03 00 | 00 00 0c 00 00 00 00 00 |........|........|
|000048b0| 00 00 01 00 00 00 00 00 | 00 00 00 a8 61 fe 37 ad |........|....a.7.|
|000048c0| 24 04 27 00 00 00 15 00 | 00 00 0c 00 00 00 06 5f |$.'.....|......._|
|000048d0| 00 07 43 68 69 63 61 67 | 6f 00 00 00 00 00 00 00 |..Chicag|o.......|
|000048e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048f0| 00 00 00 40 00 00 81 00 | 48 01 22 01 ac 00 00 00 |...@....|H.".....|
|00004900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004910| 00 00 00 00 15 00 15 00 | 15 00 15 00 15 00 15 00 |........|........|
|00004920| 70 00 4a 00 4b 09 70 61 | 72 73 65 41 65 74 65 00 |p.J.K.pa|rseAete.|
|00004930| 00 39 f3 00 01 04 bc 00 | 02 00 00 09 a2 00 00 2f |.9......|......./|
|00004940| d5 00 0b 02 00 00 0f 06 | 47 65 6e 65 76 61 00 00 |........|Geneva..|
|00004950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004960| 00 00 00 00 00 00 00 00 | 00 00 09 00 00 00 00 00 |........|........|
|00004970| 00 00 00 00 00 06 54 00 | 00 a7 5b 87 b7 ac f1 b5 |......T.|..[.....|
|00004980| 82 00 00 00 68 00 00 00 | 2e 00 07 03 1c 02 13 4c |....h...|.......L|
|00004990| 41 4e 44 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |AND.....|........|
|000049a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 6f |........|.......o|
|000049b0| 6e 20 70 61 72 73 65 41 | 65 74 65 20 28 61 70 70 |n parseA|ete (app|
|000049c0| 50 61 74 68 2c 20 61 64 | 72 54 61 62 6c 65 29 20 |Path, ad|rTable) |
|000049d0| c7 70 61 72 73 65 20 74 | 68 65 20 61 70 70 27 73 |.parse t|he app's|
|000049e0| 20 61 65 74 65 20 72 65 | 73 6f 75 72 63 65 20 61 | aete re|source a|
|000049f0| 6e 64 20 62 75 69 6c 64 | 20 61 20 76 65 72 62 20 |nd build| a verb |
|00004a00| 74 61 62 6c 65 0d 09 76 | 65 72 73 69 6f 6e 20 33 |table..v|ersion 3|
|00004a10| 2e 30 2e 33 2c 20 63 6f | 70 79 72 69 67 68 74 20 |.0.3, co|pyright |
|00004a20| a9 20 31 39 39 32 2d 31 | 39 39 34 20 55 73 65 72 |. 1992-1|994 User|
|00004a30| 4c 61 6e 64 20 53 6f 66 | 74 77 61 72 65 20 49 6e |Land Sof|tware In|
|00004a40| 63 2e 0d 09 09 39 2f 32 | 34 2f 39 32 20 64 6d 62 |c....9/2|4/92 dmb|
|00004a50| 20 2d 20 66 69 72 73 74 | 20 63 75 74 20 70 61 72 | - first| cut par|
|00004a60| 73 69 6e 67 20 74 68 65 | 20 61 70 70 6c 69 63 61 |sing the| applica|
|00004a70| 74 69 6f 6e 20 61 65 74 | 65 20 72 65 73 6f 75 72 |tion aet|e resour|
|00004a80| 63 65 20 64 69 72 65 63 | 74 6c 79 0d 09 09 32 2f |ce direc|tly...2/|
|00004a90| 31 31 2f 39 33 20 64 6d | 62 20 2d 20 75 70 64 61 |11/93 dm|b - upda|
|00004aa0| 74 65 64 20 66 6f 72 20 | 6c 61 74 65 73 74 20 61 |ted for |latest a|
|00004ab0| 65 74 65 20 63 68 61 6e | 67 65 73 2e 20 68 61 6e |ete chan|ges. han|
|00004ac0| 64 6c 65 20 73 70 65 63 | 69 61 6c 20 63 6c 61 73 |dle spec|ial clas|
|00004ad0| 73 20 70 72 6f 70 65 72 | 74 69 65 73 2e 0d 09 09 |s proper|ties....|
|00004ae0| 37 2f 30 39 2f 39 33 20 | 64 6d 62 20 2d 20 63 6f |7/09/93 |dmb - co|
|00004af0| 65 72 63 65 20 70 61 72 | 61 6d 65 74 65 72 20 74 |erce par|ameter t|
|00004b00| 79 70 65 73 2e 20 61 76 | 6f 69 64 20 6c 61 6e 67 |ypes. av|oid lang|
|00004b10| 75 61 67 65 20 72 65 73 | 65 72 76 65 64 20 77 6f |uage res|erved wo|
|00004b20| 72 64 20 63 6f 6c 6c 69 | 73 69 6f 6e 73 0d 09 09 |rd colli|sions...|
|00004b30| 37 2f 33 30 2f 39 33 20 | 64 6d 62 20 2d 20 61 64 |7/30/93 |dmb - ad|
|00004b40| 64 20 22 20 3d 20 6e 69 | 6c 22 20 74 6f 20 6f 70 |d " = ni|l" to op|
|00004b50| 74 69 6f 6e 61 6c 20 70 | 61 72 61 6d 65 74 65 72 |tional p|arameter|
|00004b60| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 0d 09 09 38 | definit|ions...8|
|00004b70| 2f 31 30 2f 39 33 20 64 | 6d 62 20 2d 20 64 6f 6e |/10/93 d|mb - don|
|00004b80| 27 74 20 63 72 65 61 74 | 65 20 69 74 65 6d 73 20 |'t creat|e items |
|00004b90| 77 69 74 68 20 6e 61 6d | 65 73 20 74 68 61 74 20 |with nam|es that |
|00004ba0| 6d 61 74 63 68 20 6f 62 | 6a 65 63 74 4d 6f 64 65 |match ob|jectMode|
|00004bb0| 6c 20 73 63 72 69 70 74 | 73 0d 09 09 39 2f 30 32 |l script|s...9/02|
|00004bc0| 2f 39 33 20 64 6d 62 20 | 2d 20 68 61 6e 64 6c 65 |/93 dmb |- handle|
|00004bd0| 20 27 63 40 23 5e 27 20 | 70 73 75 65 64 6f 20 70 | 'c@#^' |psuedo p|
|00004be0| 72 6f 70 65 72 74 79 0d | 09 09 39 2f 31 35 2f 39 |roperty.|..9/15/9|
|00004bf0| 33 20 64 6d 62 20 2d 20 | 66 69 78 65 64 20 62 75 |3 dmb - |fixed bu|
|00004c00| 67 20 69 6e 20 27 63 40 | 23 5e 27 20 68 61 6e 64 |g in 'c@|#^' hand|
|00004c10| 6c 69 6e 67 20 61 6e 64 | 20 70 6f 73 74 20 70 72 |ling and| post pr|
|00004c20| 6f 63 65 73 73 69 6e 67 | 0d 09 09 35 2f 32 37 2f |ocessing|...5/27/|
|00004c30| 39 34 20 64 6d 6c 2f 64 | 6d 62 20 2d 20 68 61 6e |94 dml/d|mb - han|
|00004c40| 64 6c 65 20 6c 6f 6e 67 | 20 6c 69 6e 65 73 20 69 |dle long| lines i|
|00004c50| 6e 20 65 76 65 6e 74 73 | 0d 09 09 31 31 2f 32 2f |n events|...11/2/|
|00004c60| 39 34 20 64 6d 62 20 2d | 20 72 65 6d 6f 76 65 20 |94 dmb -| remove |
|00004c70| 6f 70 65 6e 41 70 70 6c | 69 63 61 74 69 6f 6e 2c |openAppl|ication,|
|00004c80| 20 65 78 74 72 61 20 71 | 75 69 74 41 70 70 6c 69 | extra q|uitAppli|
|00004c90| 63 61 74 69 6f 6e 20 76 | 65 72 62 73 0d 09 09 31 |cation v|erbs...1|
|00004ca0| 32 2f 31 31 2f 39 35 20 | 64 6d 62 20 2d 20 64 6f |2/11/95 |dmb - do|
|00004cb0| 6e 27 74 20 6d 61 70 20 | 65 6e 74 69 72 65 20 4d |n't map |entire M|
|00004cc0| 69 73 63 20 53 74 61 6e | 64 61 72 64 73 20 73 75 |isc Stan|dards su|
|00004cd0| 69 74 65 20 6f 66 20 73 | 70 65 63 69 66 69 63 20 |ite of s|pecific |
|00004ce0| 65 76 65 6e 74 20 61 72 | 65 20 70 72 65 73 65 6e |event ar|e presen|
|00004cf0| 74 0d 09 09 09 74 68 61 | 6e 6b 73 20 74 6f 20 4d |t....tha|nks to M|
|00004d00| 69 6b 65 20 41 6c 65 78 | 61 6e 64 65 72 20 3c 6d |ike Alex|ander <m|
|00004d10| 74 61 40 75 6d 69 63 68 | 2e 65 64 75 3e 0d 09 6c |ta@umich|.edu>..l|
|00004d20| 6f 63 61 6c 20 28 61 65 | 74 65 2c 20 69 78 20 3d |ocal (ae|te, ix =|
|00004d30| 20 31 29 0d 09 6f 6e 20 | 70 6c 61 63 65 4c 69 6e | 1)..on |placeLin|
|00004d40| 65 20 28 73 29 20 c7 70 | 6c 61 63 65 20 61 20 73 |e (s) .p|lace a s|
|00004d50| 63 72 69 70 74 20 6c 69 | 6e 65 20 74 68 61 74 20 |cript li|ne that |
|00004d60| 6d 79 20 62 65 20 74 6f | 6f 20 6c 6f 6e 67 20 66 |my be to|o long f|
|00004d70| 6f 72 20 6f 6e 65 20 6c | 69 6e 65 0d 09 09 6c 6f |or one l|ine...lo|
|00004d80| 63 61 6c 20 28 6d 61 78 | 6c 65 6e 20 3d 20 32 30 |cal (max|len = 20|
|00004d90| 30 29 20 c7 64 6f 6e 27 | 74 20 75 73 65 20 61 6c |0) .don'|t use al|
|00004da0| 6c 20 32 35 35 20 63 68 | 61 72 61 63 74 65 72 73 |l 255 ch|aracters|
|00004db0| 3b 20 74 68 61 74 27 73 | 20 74 6f 6f 20 6c 6f 6e |; that's| too lon|
|00004dc0| 67 20 66 6f 72 20 72 65 | 61 64 69 6e 67 0d 09 09 |g for re|ading...|
|00004dd0| 6c 6f 63 61 6c 20 28 70 | 6f 73 20 3d 20 6f 70 2e |local (p|os = op.|
|00004de0| 67 65 74 43 75 72 73 6f | 72 20 28 29 29 0d 09 09 |getCurso|r ())...|
|00004df0| 6c 6f 63 61 6c 20 28 64 | 69 72 20 3d 20 72 69 67 |local (d|ir = rig|
|00004e00| 68 74 29 0d 09 09 6c 6f | 63 61 6c 20 28 63 6f 6d |ht)...lo|cal (com|
|00004e10| 6d 65 6e 74 20 3d 20 22 | 22 29 0d 09 09 69 66 20 |ment = "|")...if |
|00004e20| 73 74 72 69 6e 67 2e 6c | 65 6e 67 74 68 20 28 73 |string.l|ength (s|
|00004e30| 29 20 3e 20 6d 61 78 6c | 65 6e 20 c7 77 6f 6e 27 |) > maxl|en .won'|
|00004e40| 74 20 66 69 74 20 6f 6e | 20 6f 6e 65 20 6c 69 6e |t fit on| one lin|
|00004e50| 65 0d 09 09 09 69 66 20 | 73 20 63 6f 6e 74 61 69 |e....if |s contai|
|00004e60| 6e 73 20 27 c7 27 0d 09 | 09 09 09 63 6f 6d 6d 65 |ns '.'..|...comme|
|00004e70| 6e 74 20 3d 20 73 74 72 | 69 6e 67 2e 6e 74 68 46 |nt = str|ing.nthF|
|00004e80| 69 65 6c 64 20 28 73 2c | 20 27 c7 27 2c 20 32 29 |ield (s,| '.', 2)|
|00004e90| 0d 09 09 09 09 73 20 3d | 20 73 74 72 69 6e 67 2e |.....s =| string.|
|00004ea0| 6e 74 68 46 69 65 6c 64 | 20 28 73 2c 20 27 c7 27 |nthField| (s, '.'|
|00004eb0| 2c 20 31 29 0d 09 09 09 | 77 68 69 6c 65 20 73 74 |, 1)....|while st|
|00004ec0| 72 69 6e 67 2e 6c 65 6e | 67 74 68 20 28 73 29 20 |ring.len|gth (s) |
|00004ed0| 3e 20 6d 61 78 6c 65 6e | 20 c7 73 74 69 6c 6c 20 |> maxlen| .still |
|00004ee0| 77 6f 6e 27 74 20 66 69 | 74 20 6f 6e 20 6f 6e 65 |won't fi|t on one|
|00004ef0| 20 6c 69 6e 65 0d 09 09 | 09 09 6c 6f 63 61 6c 20 | line...|..local |
|00004f00| 28 69 29 0d 09 09 09 09 | 66 6f 72 20 69 20 3d 20 |(i).....|for i = |
|00004f10| 6d 61 78 6c 65 6e 20 2d | 20 31 20 64 6f 77 6e 74 |maxlen -| 1 downt|
|00004f20| 6f 20 31 0d 09 09 09 09 | 09 69 66 20 73 20 5b 69 |o 1.....|.if s [i|
|00004f30| 5d 20 3d 3d 20 22 20 22 | 0d 09 09 09 09 09 09 6f |] == " "|.......o|
|00004f40| 70 2e 73 65 74 4c 69 6e | 65 54 65 78 74 20 28 73 |p.setLin|eText (s|
|00004f50| 74 72 69 6e 67 2e 6d 69 | 64 20 28 73 2c 20 31 2c |tring.mi|d (s, 1,|
|00004f60| 20 69 29 20 2b 20 22 5c | 5c 22 29 0d 09 09 09 09 | i) + "\|\").....|
|00004f70| 09 09 73 20 3d 20 73 74 | 72 69 6e 67 2e 64 65 6c |..s = st|ring.del|
|00004f80| 65 74 65 20 28 73 2c 20 | 31 2c 20 69 29 0d 09 09 |ete (s, |1, i)...|
|00004f90| 09 09 09 09 6f 70 2e 69 | 6e 73 65 72 74 20 28 22 |....op.i|nsert ("|
|00004fa0| 22 2c 20 64 69 72 29 0d | 09 09 09 09 09 09 64 69 |", dir).|......di|
|00004fb0| 72 20 3d 20 64 6f 77 6e | 20 c7 66 6f 72 20 6e 65 |r = down| .for ne|
|00004fc0| 78 74 20 74 69 6d 65 0d | 09 09 09 09 09 09 62 72 |xt time.|......br|
|00004fd0| 65 61 6b 0d 09 09 6f 70 | 2e 73 65 74 4c 69 6e 65 |eak...op|.setLine|
|00004fe0| 54 65 78 74 20 28 73 29 | 0d 09 09 69 66 20 63 6f |Text (s)|...if co|
|00004ff0| 6d 6d 65 6e 74 20 21 3d | 20 22 22 0d 09 09 09 6f |mment !=| ""....o|
|00005000| 70 2e 69 6e 73 65 72 74 | 20 28 63 6f 6d 6d 65 6e |p.insert| (commen|
|00005010| 74 2c 20 64 69 72 29 0d | 09 09 09 73 63 72 69 70 |t, dir).|...scrip|
|00005020| 74 2e 6d 61 6b 65 43 6f | 6d 6d 65 6e 74 20 28 29 |t.makeCo|mment ()|
|00005030| 0d 09 09 6f 70 2e 73 65 | 74 43 75 72 73 6f 72 20 |...op.se|tCursor |
|00005040| 28 70 6f 73 29 0d 09 6f | 6e 20 67 65 74 73 68 6f |(pos)..o|n getsho|
|00005050| 72 74 20 28 29 0d 09 09 | 6c 6f 63 61 6c 20 28 6e |rt ()...|local (n|
|00005060| 29 0d 09 09 72 6f 6c 6c | 62 65 61 63 68 62 61 6c |)...roll|beachbal|
|00005070| 6c 20 28 29 0d 09 09 6e | 20 3d 20 6e 75 6d 62 65 |l ()...n| = numbe|
|00005080| 72 20 28 62 69 6e 61 72 | 79 20 28 73 74 72 69 6e |r (binar|y (strin|
|00005090| 67 2e 6d 69 64 20 28 61 | 65 74 65 2c 20 69 78 2c |g.mid (a|ete, ix,|
|000050a0| 20 32 29 29 29 0d 09 09 | 69 78 20 3d 20 69 78 20 | 2)))...|ix = ix |
|000050b0| 2b 20 32 0d 09 09 72 65 | 74 75 72 6e 20 28 6e 29 |+ 2...re|turn (n)|
|000050c0| 0d 09 6f 6e 20 67 65 74 | 73 74 72 69 6e 67 20 28 |..on get|string (|
|000050d0| 29 0d 09 09 6c 6f 63 61 | 6c 20 28 6e 2c 20 73 29 |)...loca|l (n, s)|
|000050e0| 0d 09 09 72 6f 6c 6c 62 | 65 61 63 68 62 61 6c 6c |...rollb|eachball|
|000050f0| 20 28 29 0d 09 09 6e 20 | 3d 20 6e 75 6d 62 65 72 | ()...n |= number|
|00005100| 20 28 73 74 72 69 6e 67 | 2e 6e 74 68 43 68 61 72 | (string|.nthChar|
|00005110| 20 28 61 65 74 65 2c 20 | 69 78 29 29 0d 09 09 73 | (aete, |ix))...s|
|00005120| 20 3d 20 73 74 72 69 6e | 67 2e 6d 69 64 20 28 61 | = strin|g.mid (a|
|00005130| 65 74 65 2c 20 69 78 20 | 2b 20 31 2c 20 6e 29 0d |ete, ix |+ 1, n).|
|00005140| 09 09 69 78 20 3d 20 69 | 78 20 2b 20 6e 20 2b 20 |..ix = i|x + n + |
|00005150| 31 0d 09 09 72 65 74 75 | 72 6e 20 28 73 29 0d 09 |1...retu|rn (s)..|
|00005160| 6f 6e 20 67 65 74 73 74 | 72 69 6e 67 34 20 28 29 |on getst|ring4 ()|
|00005170| 0d 09 09 6c 6f 63 61 6c | 20 28 78 29 0d 09 09 72 |...local| (x)...r|
|00005180| 6f 6c 6c 62 65 61 63 68 | 62 61 6c 6c 20 28 29 0d |ollbeach|ball ().|
|00005190| 09 09 78 20 3d 20 73 74 | 72 69 6e 67 34 20 28 73 |..x = st|ring4 (s|
|000051a0| 74 72 69 6e 67 2e 6d 69 | 64 20 28 61 65 74 65 2c |tring.mi|d (aete,|
|000051b0| 20 69 78 2c 20 34 29 29 | 0d 09 09 69 78 20 3d 20 | ix, 4))|...ix = |
|000051c0| 69 78 20 2b 20 34 0d 09 | 09 72 65 74 75 72 6e 20 |ix + 4..|.return |
|000051d0| 28 78 29 0d 09 6f 6e 20 | 67 65 74 6e 61 6d 65 20 |(x)..on |getname |
|000051e0| 28 29 0d 09 09 6c 6f 63 | 61 6c 20 28 69 78 53 70 |()...loc|al (ixSp|
|000051f0| 61 63 65 2c 20 78 29 0d | 09 09 78 20 3d 20 73 74 |ace, x).|..x = st|
|00005200| 72 69 6e 67 2e 6c 6f 77 | 65 72 20 28 67 65 74 73 |ring.low|er (gets|
|00005210| 74 72 69 6e 67 20 28 29 | 29 0d 09 09 77 68 69 6c |tring ()|)...whil|
|00005220| 65 20 73 74 72 69 6e 67 | 2e 63 6f 75 6e 74 57 6f |e string|.countWo|
|00005230| 72 64 73 20 28 78 29 20 | 3e 20 31 20 c7 6d 61 6b |rds (x) |> 1 .mak|
|00005240| 65 20 69 74 20 61 6e 20 | 69 6e 6e 65 72 43 61 73 |e it an |innerCas|
|00005250| 65 20 69 64 65 6e 74 69 | 66 69 65 72 0d 09 09 09 |e identi|fier....|
|00005260| 69 78 53 70 61 63 65 20 | 3d 20 73 74 72 69 6e 67 |ixSpace |= string|
|00005270| 2e 70 61 74 74 65 72 6e | 4d 61 74 63 68 20 28 27 |.pattern|Match ('|
|00005280| 20 27 2c 20 78 29 0d 09 | 09 09 63 68 20 3d 20 73 | ', x)..|..ch = s|
|00005290| 74 72 69 6e 67 2e 75 70 | 70 65 72 20 28 73 74 72 |tring.up|per (str|
|000052a0| 69 6e 67 2e 6e 74 68 43 | 68 61 72 20 28 78 2c 20 |ing.nthC|har (x, |
|000052b0| 69 78 53 70 61 63 65 20 | 2b 20 31 29 29 0d 09 09 |ixSpace |+ 1))...|
|000052c0| 09 78 3d 20 73 74 72 69 | 6e 67 2e 66 69 72 73 74 |.x= stri|ng.first|
|000052d0| 57 6f 72 64 20 28 78 29 | 20 2b 20 63 68 20 2b 20 |Word (x)| + ch + |
|000052e0| 73 74 72 69 6e 67 2e 6d | 69 64 20 28 78 2c 20 69 |string.m|id (x, i|
|000052f0| 78 53 70 61 63 65 20 2b | 20 32 2c 20 69 6e 66 69 |xSpace +| 2, infi|
|00005300| 6e 69 74 79 29 0d 09 09 | 6d 73 67 20 28 78 29 0d |nity)...|msg (x).|
|00005310| 09 09 72 65 74 75 72 6e | 20 28 78 29 0d 09 6f 6e |..return| (x)..on|
|00005320| 20 73 6b 69 70 73 74 72 | 69 6e 67 20 28 29 0d 09 | skipstr|ing ()..|
|00005330| 09 67 65 74 73 74 72 69 | 6e 67 20 28 29 0d 09 6f |.getstri|ng ()..o|
|00005340| 6e 20 73 6b 69 70 62 79 | 74 65 73 20 28 6e 29 0d |n skipby|tes (n).|
|00005350| 09 09 69 78 20 3d 20 69 | 78 20 2b 20 6e 0d 09 6f |..ix = i|x + n..o|
|00005360| 6e 20 61 6c 69 67 6e 20 | 28 29 0d 09 09 69 66 20 |n align |()...if |
|00005370| 69 78 20 25 20 32 20 3d | 3d 20 30 20 c7 72 65 6d |ix % 2 =|= 0 .rem|
|00005380| 65 6d 62 65 72 2c 20 77 | 65 27 72 65 20 69 6e 20 |ember, w|e're in |
|00005390| 61 20 31 2d 62 61 73 65 | 64 20 77 6f 72 6c 64 2c |a 1-base|d world,|
|000053a0| 20 73 6f 20 74 68 69 73 | 20 69 73 20 61 6e 20 6f | so this| is an o|
|000053b0| 64 64 20 62 79 74 65 0d | 09 09 09 2b 2b 69 78 0d |dd byte.|...++ix.|
|000053c0| 09 6f 6e 20 61 73 73 69 | 67 6e 55 6e 69 71 75 65 |.on assi|gnUnique|
|000053d0| 20 28 6e 61 6d 65 2c 20 | 61 64 72 56 61 6c 75 65 | (name, |adrValue|
|000053e0| 29 0d 09 09 6f 6e 20 73 | 61 6d 65 56 61 6c 75 65 |)...on s|ameValue|
|000053f0| 20 28 61 64 72 31 2c 20 | 61 64 72 32 29 0d 09 09 | (adr1, |adr2)...|
|00005400| 09 69 66 20 74 79 70 65 | 4f 66 20 28 61 64 72 31 |.if type|Of (adr1|
|00005410| 5e 29 20 21 3d 20 74 79 | 70 65 4f 66 20 28 61 64 |^) != ty|peOf (ad|
|00005420| 72 32 5e 29 0d 09 09 09 | 09 72 65 74 75 72 6e 20 |r2^)....|.return |
|00005430| 28 66 61 6c 73 65 29 0d | 09 09 09 72 65 74 75 72 |(false).|...retur|
|00005440| 6e 20 28 61 64 72 31 5e | 20 3d 3d 20 61 64 72 32 |n (adr1^| == adr2|
|00005450| 5e 29 0d 09 09 6c 6f 63 | 61 6c 20 28 61 64 72 2c |^)...loc|al (adr,|
|00005460| 20 63 74 20 3d 20 31 29 | 0d 09 09 61 64 72 20 3d | ct = 1)|...adr =|
|00005470| 20 40 6f 62 6a 65 63 74 | 4d 6f 64 65 6c 2e 5b 6e | @object|Model.[n|
|00005480| 61 6d 65 5d 0d 09 09 69 | 66 20 64 65 66 69 6e 65 |ame]...i|f define|
|00005490| 64 20 28 61 64 72 5e 29 | 0d 09 09 09 69 66 20 73 |d (adr^)|....if s|
|000054a0| 61 6d 65 56 61 6c 75 65 | 20 28 61 64 72 2c 20 61 |ameValue| (adr, a|
|000054b0| 64 72 56 61 6c 75 65 29 | 0d 09 09 09 09 72 65 74 |drValue)|.....ret|
|000054c0| 75 72 6e 20 28 66 61 6c | 73 65 29 0d 09 09 09 69 |urn (fal|se)....i|
|000054d0| 66 20 74 79 70 65 4f 66 | 20 28 61 64 72 5e 29 20 |f typeOf| (adr^) |
|000054e0| 3d 3d 20 73 63 72 69 70 | 74 54 79 70 65 0d 09 09 |== scrip|tType...|
|000054f0| 09 09 72 65 74 75 72 6e | 20 28 66 61 6c 73 65 29 |..return| (false)|
|00005500| 0d 09 09 61 64 72 20 3d | 20 40 61 64 72 54 61 62 |...adr =| @adrTab|
|00005510| 6c 65 5e 2e 5b 6e 61 6d | 65 5d 0d 09 09 77 68 69 |le^.[nam|e]...whi|
|00005520| 6c 65 20 64 65 66 69 6e | 65 64 20 28 61 64 72 5e |le defin|ed (adr^|
|00005530| 29 0d 09 09 09 69 66 20 | 73 61 6d 65 56 61 6c 75 |)....if |sameValu|
|00005540| 65 20 28 61 64 72 2c 20 | 61 64 72 56 61 6c 75 65 |e (adr, |adrValue|
|00005550| 29 0d 09 09 09 09 72 65 | 74 75 72 6e 20 28 66 61 |).....re|turn (fa|
|00005560| 6c 73 65 29 0d 09 09 09 | 61 64 72 20 3d 20 40 61 |lse)....|adr = @a|
|00005570| 64 72 54 61 62 6c 65 5e | 2e 5b 6e 61 6d 65 20 2b |drTable^|.[name +|
|00005580| 20 63 74 2b 2b 5d 0d 09 | 09 74 61 62 6c 65 2e 61 | ct++]..|.table.a|
|00005590| 73 73 69 67 6e 20 28 61 | 64 72 2c 20 61 64 72 56 |ssign (a|dr, adrV|
|000055a0| 61 6c 75 65 5e 29 0d 09 | 09 72 65 74 75 72 6e 20 |alue^)..|.return |
|000055b0| 28 74 72 75 65 29 0d 09 | 6f 6e 20 70 61 72 73 65 |(true)..|on parse|
|000055c0| 45 76 65 6e 74 73 20 28 | 29 0d 09 09 6c 6f 63 61 |Events (|)...loca|
|000055d0| 6c 20 28 69 78 65 76 65 | 6e 74 2c 20 63 74 65 76 |l (ixeve|nt, ctev|
|000055e0| 65 6e 74 73 2c 20 65 76 | 65 6e 74 70 72 65 66 69 |ents, ev|entprefi|
|000055f0| 78 29 0d 09 09 6f 6e 20 | 6d 61 6b 65 53 63 72 69 |x)...on |makeScri|
|00005600| 70 74 20 28 6f 6e 53 74 | 61 74 65 6d 65 6e 74 2c |pt (onSt|atement,|
|00005610| 20 72 65 74 75 72 6e 53 | 74 61 74 65 6d 65 6e 74 | returnS|tatement|
|00005620| 2c 20 61 64 72 29 0d 09 | 09 09 6e 65 77 20 28 73 |, adr)..|..new (s|
|00005630| 63 72 69 70 74 54 79 70 | 65 2c 20 61 64 72 29 0d |criptTyp|e, adr).|
|00005640| 09 09 09 74 61 72 67 65 | 74 2e 73 65 74 20 28 61 |...targe|t.set (a|
|00005650| 64 72 29 0d 09 09 09 70 | 6c 61 63 65 4c 69 6e 65 |dr)....p|laceLine|
|00005660| 20 28 6f 6e 53 74 61 74 | 65 6d 65 6e 74 29 20 c7 | (onStat|ement) .|
|00005670| 68 61 6e 64 6c 65 73 20 | 6c 69 6e 65 20 6f 76 65 |handles |line ove|
|00005680| 72 66 6c 6f 77 0d 09 09 | 09 6f 70 2e 69 6e 73 65 |rflow...|.op.inse|
|00005690| 72 74 41 74 45 6e 64 4f | 66 4c 69 73 74 20 28 22 |rtAtEndO|fList ("|
|000056a0| 22 29 20 c7 20 4d 61 6b | 65 20 61 20 70 6c 61 63 |") . Mak|e a plac|
|000056b0| 65 20 66 6f 72 20 74 68 | 65 20 72 65 74 75 72 6e |e for th|e return|
|000056c0| 20 73 74 61 74 65 6d 65 | 6e 74 0d 09 09 09 70 6c | stateme|nt....pl|
|000056d0| 61 63 65 4c 69 6e 65 20 | 28 72 65 74 75 72 6e 53 |aceLine |(returnS|
|000056e0| 74 61 74 65 6d 65 6e 74 | 29 0d 09 09 09 6f 70 2e |tatement|)....op.|
|000056f0| 73 65 74 4c 69 6e 65 54 | 65 78 74 20 28 6f 6e 53 |setLineT|ext (onS|
|00005700| 74 61 74 65 6d 65 6e 74 | 29 0d 09 09 09 6f 70 2e |tatement|)....op.|
|00005710| 69 6e 73 65 72 74 20 28 | 72 65 74 75 72 6e 53 74 |insert (|returnSt|
|00005720| 61 74 65 6d 65 6e 74 2c | 20 72 69 67 68 74 29 0d |atement,| right).|
|00005730| 09 09 09 6f 70 2e 67 6f | 20 28 6c 65 66 74 2c 20 |...op.go| (left, |
|00005740| 31 29 0d 09 09 09 77 69 | 6e 64 6f 77 2e 7a 6f 6f |1)....wi|ndow.zoo|
|00005750| 6d 20 28 61 64 72 29 0d | 09 09 09 63 6c 6f 73 65 |m (adr).|...close|
|00005760| 20 28 61 64 72 29 0d 09 | 09 09 72 65 74 75 72 6e | (adr)..|..return|
|00005770| 20 28 74 72 75 65 29 0d | 09 09 6f 6e 20 6d 61 6b | (true).|..on mak|
|00005780| 65 4e 61 6d 65 20 28 74 | 79 70 65 29 0d 09 09 09 |eName (t|ype)....|
|00005790| 62 61 73 65 64 20 6f 6e | 20 74 68 65 20 64 69 72 |based on| the dir|
|000057a0| 65 63 74 20 70 61 72 61 | 6d 65 74 65 72 27 73 20 |ect para|meter's |
|000057b0| 74 79 70 65 2c 20 63 6f | 6d 65 20 75 70 20 77 69 |type, co|me up wi|
|000057c0| 74 68 20 61 20 6e 61 6d | 65 20 66 6f 72 20 69 74 |th a nam|e for it|
|000057d0| 0d 09 09 09 63 61 73 65 | 20 74 79 70 65 0d 09 09 |....case| type...|
|000057e0| 09 09 6f 62 6a 73 70 65 | 63 54 79 70 65 0d 09 09 |..objspe|cType...|
|000057f0| 09 09 09 72 65 74 75 72 | 6e 20 28 22 6f 62 6a 22 |...retur|n ("obj"|
|00005800| 29 0d 09 09 09 09 73 74 | 72 69 6e 67 54 79 70 65 |).....st|ringType|
|00005810| 0d 09 09 09 09 09 72 65 | 74 75 72 6e 20 28 22 73 |......re|turn ("s|
|00005820| 22 29 0d 09 09 09 09 69 | 6e 74 54 79 70 65 0d 09 |").....i|ntType..|
|00005830| 09 09 09 6c 6f 6e 67 54 | 79 70 65 0d 09 09 09 09 |...longT|ype.....|
|00005840| 09 72 65 74 75 72 6e 20 | 28 22 6e 22 29 0d 09 09 |.return |("n")...|
|00005850| 09 09 62 6f 6f 6c 65 61 | 6e 54 79 70 65 0d 09 09 |..boolea|nType...|
|00005860| 09 09 09 72 65 74 75 72 | 6e 20 28 22 66 6c 61 67 |...retur|n ("flag|
|00005870| 22 29 0d 09 09 09 09 61 | 6c 69 61 73 54 79 70 65 |").....a|liasType|
|00005880| 0d 09 09 09 09 66 69 6c | 65 73 70 65 63 54 79 70 |.....fil|especTyp|
|00005890| 65 0d 09 09 09 09 09 72 | 65 74 75 72 6e 20 28 22 |e......r|eturn ("|
|000058a0| 66 69 6c 65 22 29 0d 09 | 09 09 65 6c 73 65 0d 09 |file")..|..else..|
|000058b0| 09 09 09 72 65 74 75 72 | 6e 20 28 22 78 22 29 0d |...retur|n ("x").|
|000058c0| 09 09 6f 6e 20 6d 61 6b | 65 50 61 72 61 6d 20 28 |..on mak|eParam (|
|000058d0| 6e 61 6d 65 2c 20 74 79 | 70 65 29 0d 09 09 09 6c |name, ty|pe)....l|
|000058e0| 6f 63 61 6c 20 28 63 6f | 65 72 63 65 72 29 0d 09 |ocal (co|ercer)..|
|000058f0| 09 09 63 61 73 65 20 74 | 79 70 65 0d 09 09 09 09 |..case t|ype.....|
|00005900| 6f 62 6a 73 70 65 63 54 | 79 70 65 0d 09 09 09 09 |objspecT|ype.....|
|00005910| 09 63 6f 65 72 63 65 72 | 20 3d 20 22 6f 62 6a 73 |.coercer| = "objs|
|00005920| 70 65 63 22 0d 09 09 09 | 09 66 69 6c 65 73 70 65 |pec"....|.filespe|
|00005930| 63 54 79 70 65 0d 09 09 | 09 09 09 63 6f 65 72 63 |cType...|...coerc|
|00005940| 65 72 20 3d 20 22 66 69 | 6c 65 73 70 65 63 22 0d |er = "fi|lespec".|
|00005950| 09 09 09 09 61 6c 69 61 | 73 54 79 70 65 0d 09 09 |....alia|sType...|
|00005960| 09 09 09 63 6f 65 72 63 | 65 72 20 3d 20 22 61 6c |...coerc|er = "al|
|00005970| 69 61 73 22 0d 09 09 09 | 09 27 69 74 78 74 27 0d |ias"....|.'itxt'.|
|00005980| 09 09 09 09 73 74 72 69 | 6e 67 54 79 70 65 0d 09 |....stri|ngType..|
|00005990| 09 09 09 09 63 6f 65 72 | 63 65 72 20 3d 20 22 73 |....coer|cer = "s|
|000059a0| 74 72 69 6e 67 22 0d 09 | 09 09 09 69 6e 74 54 79 |tring"..|...intTy|
|000059b0| 70 65 0d 09 09 09 09 09 | 63 6f 65 72 63 65 72 20 |pe......|coercer |
|000059c0| 3d 20 22 73 68 6f 72 74 | 22 0d 09 09 09 09 6c 6f |= "short|".....lo|
|000059d0| 6e 67 54 79 70 65 0d 09 | 09 09 09 09 63 6f 65 72 |ngType..|....coer|
|000059e0| 63 65 72 20 3d 20 22 6c | 6f 6e 67 22 0d 09 09 09 |cer = "l|ong"....|
|000059f0| 09 27 73 61 76 6f 27 0d | 09 09 09 09 65 6e 75 6d |.'savo'.|....enum|
|00005a00| 65 72 61 74 6f 72 54 79 | 70 65 0d 09 09 09 09 09 |eratorTy|pe......|
|00005a10| 63 6f 65 72 63 65 72 20 | 3d 20 22 65 6e 75 6d 22 |coercer |= "enum"|
|00005a20| 0d 09 09 09 09 73 74 72 | 69 6e 67 34 54 79 70 65 |.....str|ing4Type|
|00005a30| 0d 09 09 09 09 09 63 6f | 65 72 63 65 72 20 3d 20 |......co|ercer = |
|00005a40| 22 73 74 72 69 6e 67 34 | 22 0d 09 09 09 09 62 6f |"string4|".....bo|
|00005a50| 6f 6c 65 61 6e 54 79 70 | 65 0d 09 09 09 09 09 63 |oleanTyp|e......c|
|00005a60| 6f 65 72 63 65 72 20 3d | 20 22 62 6f 6f 6c 65 61 |oercer =| "boolea|
|00005a70| 6e 22 0d 09 09 09 09 73 | 69 6e 67 6c 65 54 79 70 |n".....s|ingleTyp|
|00005a80| 65 0d 09 09 09 09 09 63 | 6f 65 72 63 65 72 20 3d |e......c|oercer =|
|00005a90| 20 22 73 69 6e 67 6c 65 | 22 0d 09 09 09 09 64 6f | "single|".....do|
|00005aa0| 75 62 6c 65 54 79 70 65 | 0d 09 09 09 09 09 63 6f |ubleType|......co|
|00005ab0| 65 72 63 65 72 20 3d 20 | 22 64 6f 75 62 6c 65 22 |ercer = |"double"|
|00005ac0| 0d 09 09 09 09 70 6f 69 | 6e 74 54 79 70 65 0d 09 |.....poi|ntType..|
|00005ad0| 09 09 09 09 63 6f 65 72 | 63 65 72 20 3d 20 22 70 |....coer|cer = "p|
|00005ae0| 6f 69 6e 74 22 0d 09 09 | 09 09 72 65 63 74 54 79 |oint"...|..rectTy|
|00005af0| 70 65 0d 09 09 09 09 09 | 63 6f 65 72 63 65 72 20 |pe......|coercer |
|00005b00| 3d 20 22 72 65 63 74 22 | 0d 09 09 09 09 72 67 62 |= "rect"|.....rgb|
|00005b10| 54 79 70 65 0d 09 09 09 | 09 09 63 6f 65 72 63 65 |Type....|..coerce|
|00005b20| 72 20 3d 20 22 72 67 62 | 22 0d 09 09 09 65 6c 73 |r = "rgb|"....els|
|00005b30| 65 0d 09 09 09 09 72 65 | 74 75 72 6e 20 28 6e 61 |e.....re|turn (na|
|00005b40| 6d 65 29 0d 09 09 09 72 | 65 74 75 72 6e 20 28 63 |me)....r|eturn (c|
|00005b50| 6f 65 72 63 65 72 20 2b | 20 22 20 28 22 20 2b 20 |oercer +| " (" + |
|00005b60| 6e 61 6d 65 20 2b 20 27 | 29 27 29 0d 09 09 6f 6e |name + '|)')...on|
|00005b70| 20 6d 61 70 53 75 69 74 | 65 20 28 63 6f 64 65 2c | mapSuit|e (code,|
|00005b80| 20 61 64 72 29 0d 09 09 | 09 63 61 73 65 20 63 6f | adr)...|.case co|
|00005b90| 64 65 0d 09 09 09 09 27 | 72 65 71 64 27 0d 09 09 |de.....'|reqd'...|
|00005ba0| 09 09 09 61 64 72 5e 20 | 3d 20 40 73 79 73 74 65 |...adr^ |= @syste|
|00005bb0| 6d 2e 6d 61 63 69 6e 74 | 6f 73 68 2e 72 65 71 75 |m.macint|osh.requ|
|00005bc0| 69 72 65 64 0d 09 09 09 | 09 27 63 6f 72 65 27 0d |ired....|.'core'.|
|00005bd0| 09 09 09 09 09 61 64 72 | 5e 20 3d 20 40 73 79 73 |.....adr|^ = @sys|
|00005be0| 74 65 6d 2e 6d 61 63 69 | 6e 74 6f 73 68 2e 63 6f |tem.maci|ntosh.co|
|00005bf0| 72 65 0d 09 09 09 09 27 | 6d 69 73 63 27 0d 09 09 |re.....'|misc'...|
|00005c00| 09 09 09 61 64 72 5e 20 | 3d 20 40 73 79 73 74 65 |...adr^ |= @syste|
|00005c10| 6d 2e 6d 61 63 69 6e 74 | 6f 73 68 2e 6d 69 73 63 |m.macint|osh.misc|
|00005c20| 0d 09 09 09 65 6c 73 65 | 0d 09 09 09 09 72 65 74 |....else|.....ret|
|00005c30| 75 72 6e 20 28 66 61 6c | 73 65 29 0d 09 09 09 72 |urn (fal|se)....r|
|00005c40| 65 74 75 72 6e 20 28 74 | 72 75 65 29 0d 09 09 6f |eturn (t|rue)...o|
|00005c50| 6e 20 6d 61 70 45 76 65 | 6e 74 20 28 61 64 72 53 |n mapEve|nt (adrS|
|00005c60| 63 72 69 70 74 2c 20 61 | 64 72 54 61 62 6c 65 29 |cript, a|drTable)|
|00005c70| 0d 09 09 09 6c 6f 63 61 | 6c 0d 09 09 09 09 68 64 |....loca|l.....hd|
|00005c80| 72 0d 09 09 09 09 72 74 | 6e 0d 09 09 09 09 76 65 |r.....rt|n.....ve|
|00005c90| 72 62 20 3d 20 6e 61 6d | 65 4f 66 20 28 61 64 72 |rb = nam|eOf (adr|
|00005ca0| 53 63 72 69 70 74 5e 29 | 0d 09 09 09 09 61 70 70 |Script^)|.....app|
|00005cb0| 4e 61 6d 65 20 3d 20 6e | 61 6d 65 4f 66 20 28 61 |Name = n|ameOf (a|
|00005cc0| 64 72 54 61 62 6c 65 5e | 29 0d 09 09 09 09 73 75 |drTable^|).....su|
|00005cd0| 69 74 65 4e 61 6d 65 20 | 3d 20 73 74 72 69 6e 67 |iteName |= string|
|00005ce0| 2e 6e 74 68 46 69 65 6c | 64 20 28 61 64 72 53 63 |.nthFiel|d (adrSc|
|00005cf0| 72 69 70 74 2c 20 27 2e | 27 2c 20 73 74 72 69 6e |ript, '.|', strin|
|00005d00| 67 2e 63 6f 75 6e 74 46 | 69 65 6c 64 73 20 28 61 |g.countF|ields (a|
|00005d10| 64 72 53 63 72 69 70 74 | 2c 20 27 2e 27 29 20 2d |drScript|, '.') -|
|00005d20| 20 31 29 0d 09 09 09 09 | 61 64 72 20 3d 20 40 61 | 1).....|adr = @a|
|00005d30| 64 72 54 61 62 6c 65 5e | 2e 5b 76 65 72 62 5d 0d |drTable^|.[verb].|
|00005d40| 09 09 09 72 6f 6c 6c 62 | 65 61 63 68 62 61 6c 6c |...rollb|eachball|
|00005d50| 20 28 29 0d 09 09 09 74 | 61 72 67 65 74 2e 73 65 | ()....t|arget.se|
|00005d60| 74 20 28 61 64 72 53 63 | 72 69 70 74 29 0d 09 09 |t (adrSc|ript)...|
|00005d70| 09 6d 73 67 20 28 6e 61 | 6d 65 4f 66 20 28 61 64 |.msg (na|meOf (ad|
|00005d80| 72 53 63 72 69 70 74 5e | 29 29 0d 09 09 09 6f 70 |rScript^|))....op|
|00005d90| 2e 66 69 72 73 74 53 75 | 6d 6d 69 74 20 28 29 0d |.firstSu|mmit ().|
|00005da0| 09 09 09 68 64 72 20 3d | 20 6f 70 2e 67 65 74 4c |...hdr =| op.getL|
|00005db0| 69 6e 65 54 65 78 74 20 | 28 29 20 2d 20 22 61 70 |ineText |() - "ap|
|00005dc0| 70 49 44 22 0d 09 09 09 | 68 64 72 20 3d 20 68 64 |pID"....|hdr = hd|
|00005dd0| 72 20 2d 20 22 2c 20 22 | 0d 09 09 09 72 74 6e 20 |r - ", "|....rtn |
|00005de0| 3d 20 73 74 72 69 6e 67 | 2e 63 6f 6d 6d 65 6e 74 |= string|.comment|
|00005df0| 44 65 6c 65 74 65 20 28 | 68 64 72 20 2d 20 28 22 |Delete (|hdr - ("|
|00005e00| 6f 6e 20 22 20 2b 20 76 | 65 72 62 20 2b 20 22 20 |on " + v|erb + " |
|00005e10| 28 22 29 29 0d 09 09 09 | 72 74 6e 20 3d 20 73 74 |("))....|rtn = st|
|00005e20| 72 69 6e 67 2e 70 6f 70 | 54 72 61 69 6c 69 6e 67 |ring.pop|Trailing|
|00005e30| 20 28 72 74 6e 2c 20 27 | 20 27 29 0d 09 09 09 72 | (rtn, '| ')....r|
|00005e40| 74 6e 20 3d 20 73 74 72 | 69 6e 67 2e 72 65 70 6c |tn = str|ing.repl|
|00005e50| 61 63 65 41 6c 6c 20 28 | 72 74 6e 2c 20 22 20 3d |aceAll (|rtn, " =|
|00005e60| 20 6e 69 6c 22 2c 20 22 | 22 29 0d 09 09 09 72 74 | nil", "|")....rt|
|00005e70| 6e 20 3d 20 73 74 72 69 | 6e 67 2e 72 65 70 6c 61 |n = stri|ng.repla|
|00005e80| 63 65 41 6c 6c 20 28 72 | 74 6e 2c 20 22 20 3d 20 |ceAll (r|tn, " = |
|00005e90| 27 6e 6f 20 20 27 22 2c | 20 22 22 29 0d 09 09 09 |'no '",| "")....|
|00005ea0| 69 66 20 73 74 72 69 6e | 67 2e 6c 65 6e 67 74 68 |if strin|g.length|
|00005eb0| 20 28 72 74 6e 29 20 3e | 20 31 20 c7 68 61 73 20 | (rtn) >| 1 .has |
|00005ec0| 61 74 20 6c 65 61 73 74 | 20 6f 6e 65 20 70 61 72 |at least| one par|
|00005ed0| 61 6d 0d 09 09 09 09 72 | 74 6e 20 3d 20 22 2c 20 |am.....r|tn = ", |
|00005ee0| 22 20 2b 20 72 74 6e 0d | 09 09 09 72 74 6e 20 3d |" + rtn.|...rtn =|
|00005ef0| 20 73 75 69 74 65 4e 61 | 6d 65 20 2b 20 27 2e 27 | suiteNa|me + '.'|
|00005f00| 20 2b 20 76 65 72 62 20 | 2b 20 22 20 28 22 20 2b | + verb |+ " (" +|
|00005f10| 20 61 70 70 4e 61 6d 65 | 20 2b 20 22 2e 69 64 22 | appName| + ".id"|
|00005f20| 20 2b 20 72 74 6e 0d 09 | 09 09 72 74 6e 20 3d 20 | + rtn..|..rtn = |
|00005f30| 22 72 65 74 75 72 6e 20 | 28 22 20 2b 20 72 74 6e |"return |(" + rtn|
|00005f40| 20 2b 20 27 29 27 0d 09 | 09 09 72 65 74 75 72 6e | + ')'..|..return|
|00005f50| 20 28 6d 61 6b 65 53 63 | 72 69 70 74 20 28 68 64 | (makeSc|ript (hd|
|00005f60| 72 2c 20 72 74 6e 2c 20 | 61 64 72 29 29 0d 09 09 |r, rtn, |adr))...|
|00005f70| 6f 6e 20 70 61 72 73 65 | 50 61 72 61 6d 73 20 28 |on parse|Params (|
|00005f80| 69 73 46 69 72 73 74 29 | 0d 09 09 09 6c 6f 63 61 |isFirst)|....loca|
|00005f90| 6c 20 28 69 78 70 61 72 | 61 6d 2c 20 66 6c 61 67 |l (ixpar|am, flag|
|00005fa0| 73 29 0d 09 09 09 66 6f | 72 20 69 78 70 61 72 61 |s)....fo|r ixpara|
|00005fb0| 6d 20 3d 20 31 20 74 6f | 20 67 65 74 73 68 6f 72 |m = 1 to| getshor|
|00005fc0| 74 20 28 29 0d 09 09 09 | 09 70 61 72 61 6d 6e 61 |t ()....|.paramna|
|00005fd0| 6d 65 20 3d 20 67 65 74 | 6e 61 6d 65 20 28 29 0d |me = get|name ().|
|00005fe0| 09 09 09 09 69 66 20 64 | 65 66 69 6e 65 64 20 28 |....if d|efined (|
|00005ff0| 73 79 73 74 65 6d 2e 63 | 6f 6d 70 69 6c 65 72 2e |system.c|ompiler.|
|00006000| 6c 61 6e 67 75 61 67 65 | 2e 6b 65 79 77 6f 72 64 |language|.keyword|
|00006010| 73 2e 5b 70 61 72 61 6d | 6e 61 6d 65 5d 29 0d 09 |s.[param|name])..|
|00006020| 09 09 09 09 6c 6f 63 61 | 6c 20 28 63 68 20 3d 20 |....loca|l (ch = |
|00006030| 73 74 72 69 6e 67 2e 75 | 70 70 65 72 20 28 73 74 |string.u|pper (st|
|00006040| 72 69 6e 67 2e 6e 74 68 | 43 68 61 72 20 28 70 61 |ring.nth|Char (pa|
|00006050| 72 61 6d 6e 61 6d 65 2c | 20 31 29 29 29 0d 09 09 |ramname,| 1)))...|
|00006060| 09 09 09 70 61 72 61 6d | 6e 61 6d 65 20 3d 20 65 |...param|name = e|
|00006070| 76 65 6e 74 6e 61 6d 65 | 20 2b 20 63 68 20 2b 20 |ventname| + ch + |
|00006080| 73 74 72 69 6e 67 2e 64 | 65 6c 65 74 65 20 28 70 |string.d|elete (p|
|00006090| 61 72 61 6d 6e 61 6d 65 | 2c 20 31 2c 20 31 29 0d |aramname|, 1, 1).|
|000060a0| 09 09 09 09 61 6c 69 67 | 6e 20 28 29 0d 09 09 09 |....alig|n ()....|
|000060b0| 09 69 64 20 3d 20 67 65 | 74 73 74 72 69 6e 67 34 |.id = ge|tstring4|
|000060c0| 20 28 29 0d 09 09 09 09 | 70 61 72 61 6d 74 79 70 | ().....|paramtyp|
|000060d0| 65 20 3d 20 67 65 74 73 | 74 72 69 6e 67 34 20 28 |e = gets|tring4 (|
|000060e0| 29 0d 09 09 09 09 73 6b | 69 70 73 74 72 69 6e 67 |).....sk|ipstring|
|000060f0| 20 28 29 0d 09 09 09 09 | 61 6c 69 67 6e 20 28 29 | ().....|align ()|
|00006100| 0d 09 09 09 09 73 6b 69 | 70 62 79 74 65 73 20 28 |.....ski|pbytes (|
|00006110| 32 29 20 c7 70 61 72 61 | 6d 20 66 6c 61 67 73 0d |2) .para|m flags.|
|00006120| 09 09 09 09 66 6c 61 67 | 73 20 3d 20 67 65 74 73 |....flag|s = gets|
|00006130| 68 6f 72 74 20 28 29 20 | c7 70 61 72 61 6d 20 66 |hort () |.param f|
|00006140| 6c 61 67 73 0d 09 09 09 | 09 69 66 20 6e 6f 74 20 |lags....|.if not |
|00006150| 69 73 46 69 72 73 74 0d | 09 09 09 09 09 68 64 72 |isFirst.|.....hdr|
|00006160| 20 3d 20 68 64 72 20 2b | 20 22 2c 20 22 0d 09 09 | = hdr +| ", "...|
|00006170| 09 09 68 64 72 20 3d 20 | 68 64 72 20 2b 20 70 61 |..hdr = |hdr + pa|
|00006180| 72 61 6d 6e 61 6d 65 0d | 09 09 09 09 69 66 20 66 |ramname.|....if f|
|00006190| 6c 61 67 73 20 3c 20 30 | 20 c7 68 69 67 68 20 62 |lags < 0| .high b|
|000061a0| 69 74 20 73 65 74 20 2d | 3e 20 6f 70 74 69 6f 6e |it set -|> option|
|000061b0| 61 6c 20 70 61 72 61 6d | 65 74 65 72 0d 09 09 09 |al param|eter....|
|000061c0| 09 09 68 64 72 20 3d 20 | 68 64 72 20 2b 20 22 20 |..hdr = |hdr + " |
|000061d0| 3d 20 6e 69 6c 22 0d 09 | 09 09 09 72 74 6e 20 3d |= nil"..|...rtn =|
|000061e0| 20 72 74 6e 20 2b 20 22 | 2c 20 27 22 20 2b 20 69 | rtn + "|, '" + i|
|000061f0| 64 20 2b 20 22 27 2c 20 | 22 20 2b 20 6d 61 6b 65 |d + "', |" + make|
|00006200| 50 61 72 61 6d 20 28 70 | 61 72 61 6d 6e 61 6d 65 |Param (p|aramname|
|00006210| 2c 20 70 61 72 61 6d 74 | 79 70 65 29 0d 09 09 09 |, paramt|ype)....|
|00006220| 09 69 73 46 69 72 73 74 | 20 3d 20 66 61 6c 73 65 |.isFirst| = false|
|00006230| 0d 09 09 63 74 65 76 65 | 6e 74 73 20 3d 20 67 65 |...cteve|nts = ge|
|00006240| 74 73 68 6f 72 74 20 28 | 29 0d 09 09 69 66 20 6d |tshort (|)...if m|
|00006250| 61 70 53 75 69 74 65 20 | 28 73 75 69 74 65 43 6f |apSuite |(suiteCo|
|00006260| 64 65 2c 20 40 61 64 72 | 53 75 69 74 65 29 20 61 |de, @adr|Suite) a|
|00006270| 6e 64 20 28 73 75 69 74 | 65 43 6f 64 65 ad 27 6d |nd (suit|eCode.'m|
|00006280| 69 73 63 27 20 6f 72 20 | 63 74 65 76 65 6e 74 73 |isc' or |ctevents|
|00006290| 3d 3d 30 29 20 c7 6d 61 | 70 20 61 6c 6c 20 65 76 |==0) .ma|p all ev|
|000062a0| 65 6e 74 73 20 6f 66 20 | 73 75 69 74 65 0d 09 09 |ents of |suite...|
|000062b0| 09 66 6f 72 20 69 20 3d | 20 31 20 74 6f 20 73 69 |.for i =| 1 to si|
|000062c0| 7a 65 4f 66 20 28 61 64 | 72 53 75 69 74 65 5e 29 |zeOf (ad|rSuite^)|
|000062d0| 0d 09 09 09 09 6d 61 70 | 45 76 65 6e 74 20 28 40 |.....map|Event (@|
|000062e0| 61 64 72 53 75 69 74 65 | 5e 20 5b 69 5d 2c 20 61 |adrSuite|^ [i], a|
|000062f0| 64 72 54 61 62 6c 65 29 | 0d 09 09 65 76 65 6e 74 |drTable)|...event|
|00006300| 70 72 65 66 69 78 20 3d | 20 22 72 65 74 75 72 6e |prefix =| "return|
|00006310| 20 28 61 70 70 6c 65 45 | 76 65 6e 74 20 28 22 20 | (appleE|vent (" |
|00006320| 2b 20 6e 61 6d 65 4f 66 | 20 28 61 64 72 54 61 62 |+ nameOf| (adrTab|
|00006330| 6c 65 5e 29 20 2b 20 22 | 2e 69 64 2c 20 27 22 0d |le^) + "|.id, '".|
|00006340| 09 09 66 6f 72 20 69 78 | 65 76 65 6e 74 20 3d 20 |..for ix|event = |
|00006350| 31 20 74 6f 20 63 74 65 | 76 65 6e 74 73 20 c7 61 |1 to cte|vents .a|
|00006360| 64 64 20 2f 20 6f 76 65 | 72 77 72 69 74 65 20 65 |dd / ove|rwrite e|
|00006370| 76 65 6e 74 20 70 72 6f | 76 69 64 65 64 0d 09 09 |vent pro|vided...|
|00006380| 09 6c 6f 63 61 6c 20 28 | 65 76 65 6e 74 6e 61 6d |.local (|eventnam|
|00006390| 65 2c 20 63 6f 6d 6d 65 | 6e 74 2c 20 63 6c 61 73 |e, comme|nt, clas|
|000063a0| 73 2c 20 70 61 72 61 6d | 6e 61 6d 65 2c 20 70 61 |s, param|name, pa|
|000063b0| 72 61 6d 74 79 70 65 2c | 20 69 64 2c 20 68 64 72 |ramtype,| id, hdr|
|000063c0| 2c 20 72 74 6e 2c 20 61 | 64 72 29 0d 09 09 09 65 |, rtn, a|dr)....e|
|000063d0| 76 65 6e 74 6e 61 6d 65 | 20 3d 20 67 65 74 6e 61 |ventname| = getna|
|000063e0| 6d 65 20 28 29 0d 09 09 | 09 63 6f 6d 6d 65 6e 74 |me ()...|.comment|
|000063f0| 20 3d 20 67 65 74 73 74 | 72 69 6e 67 20 28 29 0d | = getst|ring ().|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
